22 lines
480 B
Fortran
22 lines
480 B
Fortran
|
! RUN: %python %S/test_modfile.py %s %flang_fc1
|
||
|
|
! Allow a generic spec that is not a name to be declared on an
|
||
|
|
! accessibility control statement
|
||
|
|
module m
|
||
|
|
public :: assignment(=)
|
||
|
|
public :: read(unformatted)
|
||
|
|
public :: operator(.eq.)
|
||
|
|
public :: operator(.smooth.)
|
||
|
|
end module
|
||
|
|
|
||
|
|
!Expect: m.mod
|
||
|
|
!module m
|
||
|
|
!interface assignment(=)
|
||
|
|
!end interface
|
||
|
|
!interface read(unformatted)
|
||
|
|
!end interface
|
||
|
|
!interface operator(.eq.)
|
||
|
|
!end interface
|
||
|
|
!interface operator(.smooth.)
|
||
|
|
!end interface
|
||
|
|
!end
|