undo rebase

Author: huixie90

flang/test/Semantics/modfile75.f90

@@ -1,18 +1,28 @@
-!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
-
-#if WHICH == 1
-module modfile75a
-  use iso_c_binding
-end
-#elif WHICH == 2
-module modfile75b
-  use modfile75a
+! 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
-#else
-program test
-  use modfile75b
-!CHECK: INTEGER(KIND=4_4) n
-  integer(c_int) n
-end
-#endif
+
+!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