[flang] Repair C_LOC

Original-commit: flang-compiler/f18@dc1c952 Reviewed-on: flang-compiler/f18#1061 Tree-same-pre-rewrite: false
llvm · Mar 11, 2020 · 771c21c · 771c21c
1 parent 886fb42
commit 771c21c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/flang/module/iso_c_binding.f90 b/flang/module/iso_c_binding.f90
@@ -91,7 +91,7 @@ end function c_associated
 
   function c_loc(x)
     type(c_ptr) :: c_loc
-    type(*), dimension(:), intent(in) :: x
+    type(*), dimension(..), intent(in) :: x
     c_loc = c_ptr(loc(x))
   end function c_loc