flang/test/Semantics/modfile08.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 ! Check modfile generation for external declarations
   3 module m
   4   real, external :: a
   5   logical b
   6   external c
   7   complex c
   8   external b, d
   9   procedure() :: e
  10   procedure(real) :: f
  11   procedure(s) :: g
  12   type t
  13     procedure(), pointer, nopass :: e
  14     procedure(real), nopass, pointer :: f
  15     procedure(s), private, pointer :: g
  16   end type
  17 contains
  18   subroutine s(x)
  19     class(t) :: x
  20   end
  21 end
  22
  23 !Expect: m.mod
  24 !module m
  25 !  procedure(real(4))::a
  26 !  procedure(logical(4))::b
  27 !  procedure(complex(4))::c
  28 !  procedure()::d
  29 !  procedure()::e
  30 !  procedure(real(4))::f
  31 !  procedure(s)::g
  32 !  type::t
  33 !    procedure(),nopass,pointer::e
  34 !    procedure(real(4)),nopass,pointer::f
  35 !    procedure(s),pointer,private::g
  36 !  end type
  37 !contains
  38 !  subroutine s(x)
  39 !    class(t)::x
  40 !  end
  41 !end