Lines Matching full:entry

2 ! Tests valid and invalid ENTRY statements
5   !ERROR: ENTRY may appear only in a subroutine or function
6   entry badentryinmodule
13     entry entryinmodproc ! ok
15       !ERROR: ENTRY may not appear in an executable construct
16       entry badentryinblock ! C1571
19       !ERROR: ENTRY may not appear in an executable construct
20       entry ibadconstr() ! C1571
24       !ERROR: ENTRY may not appear in an internal subprogram
25       entry badentryininternal ! C1571
33     !ERROR: ENTRY may not appear in a separate module procedure
34     entry badentryinsmp ! 1571
39   !ERROR: ENTRY may appear only in a subroutine or function
40   entry badentryinprogram ! C1571
44   !ERROR: ENTRY may appear only in a subroutine or function
45   entry badentryinbd ! C1571
60   entry okargs(goodarg1, goodarg2)
62   entry badresult() result(br1) ! C1572
63 …!ERROR: ENTRY dummy argument 'badarg2' is previously declared as an item that may not be used as a…
64 …!ERROR: ENTRY dummy argument 'badarg4' is previously declared as an item that may not be used as a…
65   entry badargs(badarg1,badarg2,badarg3,badarg4,badarg5)
83   entry iok1()
84   !ERROR: ENTRY name 'ibad1' may not be declared when RESULT() is present
85   entry ibad1() result(ibad1res) ! C1570
87   entry ibad2()
88   !ERROR: ENTRY in a function may not have an alternate return dummy argument
89   entry ibadalt(*) ! C1573
91   entry isameres() result(ifunc) ! C1574
92   entry iok()
93   !ERROR: RESULT(iok) may not have the same name as an ENTRY in the function
94   entry isameres2() result(iok) ! C1574
95   entry isameres3() result(iok2) ! C1574
96   entry iok2()
98   entry iok3() result(weird1)
99   entry iok4() result(weird2)
100   entry iok5() result(weird3)
101   entry iok6() result(weird4)
102   !ERROR: Result of ENTRY is not compatible with result of containing function
103   entry ibadt1() result(weird5)
104   !ERROR: Result of ENTRY is not compatible with result of containing function
105   entry ibadt2() result(weird6)
106   !ERROR: Result of ENTRY is not compatible with result of containing function
107   entry ibadt3() result(iarr)
108   !ERROR: Result of ENTRY is not compatible with result of containing function
109   entry ibadt4() result(alloc)
110   !ERROR: Result of ENTRY is not compatible with result of containing function
111   entry ibadt5() result(ptr)
114   entry isubr()
116   entry implicit()
123   !ERROR: Result of ENTRY is not compatible with result of containing function
124   entry chfunc1() result(chr1)
129   entry subr
131   entry ifunc
133   entry m1
135   entry iok1
139   entry iproc
146     entry m2entry1 ! ok
147     entry m2entry2 ! ok
148     entry m2entry3 ! ok
173     entry m3entry1
181   entry implicitbad1
184   entry implicitbad2