34 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Simplified regression test for crashreported in3! https://github.com/llvm/llvm-project/issues/123534.4module m5 interface6 ! f1 returns a pointer to a procedure whose result characteristics7 ! depend on the value of a dummy argument.8 function f1()9 interface10 function f2(n)11 integer, intent(in) :: n12 character(n), pointer :: f213 end14 end interface15 procedure (f2), pointer :: f116 end17 end interface18end19 20!Expect: m.mod21!module m22!interface23!function f1()24!interface25!function f2(n)26!integer(4),intent(in)::n27!character(n,1),pointer::f228!end29!end interface30!procedure(f2),pointer::f131!end32!end interface33!end34