rebase

Author: huixie90

flang/test/Semantics/modfile75.f90

@@ -1,28 +1,18 @@
-! RUN: %python %S/test_modfile.py %s %flang_fc1
-module m
-  type dt
-    procedure(sub), pointer, nopass :: p1 => sub
-    procedure(sub), pointer, nopass :: p2 => null()
-    procedure(sub), pointer, nopass :: p3
-  end type
-  procedure(sub), pointer :: p4 => sub
-  procedure(sub), pointer :: p5 => null()
- contains
-  subroutine sub
-  end
-end
+!RUN: rm -rf %t && mkdir -p %t
+!RUN: %flang -c -fhermetic-module-files -DWHICH=1 -J%t %s && %flang -c -fhermetic-module-files -DWHICH=2 -J%t %s && %flang_fc1 -fdebug-unparse -J%t %s | FileCheck %s
 
-!Expect: m.mod
-!module m
-!type::dt
-!procedure(sub),nopass,pointer::p1=>sub
-!procedure(sub),nopass,pointer::p2=>NULL()
-!procedure(sub),nopass,pointer::p3
-!end type
-!intrinsic::null
-!procedure(sub),pointer::p4
-!procedure(sub),pointer::p5
-!contains
-!subroutine sub()
-!end
-!end
+#if WHICH == 1
+module modfile75a
+  use iso_c_binding
+end
+#elif WHICH == 2
+module modfile75b
+  use modfile75a
+end
+#else
+program test
+  use modfile75b
+!CHECK: INTEGER(KIND=4_4) n
+  integer(c_int) n
+end
+#endif