Renamed dir.

Cases/Fortran2018/C_Descriptors/C_Allocate.c → Cases/Fortran2018/C_Allocate/C_Allocate.c

@@ -12,7 +12,7 @@ void C_Allocate ( CFI_cdesc_t *A_DV, CFI_cdesc_t *ShapeDV, int *Status )
   CFI_index_t *lbounds, *ubounds;
   
   printf("=== Entering C_Allocate === \n");
-  printf("A_DV.rank: %d\nShapeDV.elem_len: %d\n", 
+  printf("A_DV.rank: %d\nShapeDV->dim[0].extent: %d\n", 
           A_DV->rank, (int) ShapeDV->dim[0].extent);
   // Error checking
   if ( A_DV->rank != ShapeDV->dim[0].extent )