xref: /llvm-project/flang/test/Semantics/modfile51.f90 (revision dd41453f1b5ee2b393f701c9f7b0619ec1dd8744)
1*dd41453fSPeter Klausler! RUN: %python %S/test_modfile.py %s %flang_fc1
2*dd41453fSPeter Klausler! Allow a generic spec that is not a name to be declared on an
3*dd41453fSPeter Klausler! accessibility control statement
4*dd41453fSPeter Klauslermodule m
5*dd41453fSPeter Klausler  public :: assignment(=)
6*dd41453fSPeter Klausler  public :: read(unformatted)
7*dd41453fSPeter Klausler  public :: operator(.eq.)
8*dd41453fSPeter Klausler  public :: operator(.smooth.)
9*dd41453fSPeter Klauslerend module
10*dd41453fSPeter Klausler
11*dd41453fSPeter Klausler!Expect: m.mod
12*dd41453fSPeter Klausler!module m
13*dd41453fSPeter Klausler!interface assignment(=)
14*dd41453fSPeter Klausler!end interface
15*dd41453fSPeter Klausler!interface read(unformatted)
16*dd41453fSPeter Klausler!end interface
17*dd41453fSPeter Klausler!interface operator(.eq.)
18*dd41453fSPeter Klausler!end interface
19*dd41453fSPeter Klausler!interface operator(.smooth.)
20*dd41453fSPeter Klausler!end interface
21*dd41453fSPeter Klausler!end
22