42 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Check modfile generation for external declarations3module m4 real, external :: a5 logical b6 external c7 complex c8 external b, d9 procedure() :: e10 procedure(real) :: f11 procedure(s) :: g12 type t13 procedure(), pointer, nopass :: e14 procedure(real), nopass, pointer :: f15 procedure(s), private, pointer :: g16 end type17contains18 subroutine s(x)19 class(t) :: x20 end21end22 23!Expect: m.mod24!module m25! procedure(real(4))::a26! procedure(logical(4))::b27! procedure(complex(4))::c28! procedure()::d29! procedure()::e30! procedure(real(4))::f31! procedure(s)::g32! type::t33! procedure(),nopass,pointer::e34! procedure(real(4)),nopass,pointer::f35! procedure(s),pointer,private::g36! end type37!contains38! subroutine s(x)39! class(t)::x40! end41!end42