flang/test/Semantics/modfile51.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 ! Allow a generic spec that is not a name to be declared on an
   3 ! accessibility control statement
   4 module m
   5   public :: assignment(=)
   6   public :: read(unformatted)
   7   public :: operator(.eq.)
   8   public :: operator(.smooth.)
   9 end module
  10
  11 !Expect: m.mod
  12 !module m
  13 !interface assignment(=)
  14 !end interface
  15 !interface read(unformatted)
  16 !end interface
  17 !interface operator(.eq.)
  18 !end interface
  19 !interface operator(.smooth.)
  20 !end interface
  21 !end