Lines Matching full:entry

2 ! Tests valid and invalid ENTRY statements
5   !ERROR: ENTRY 'badentryinmodule' 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 'badentryinsmp' may not appear in a separate module procedure
34     entry badentryinsmp ! 1571
39   !ERROR: ENTRY 'badentryinprogram' may appear only in a subroutine or function
40   entry badentryinprogram ! C1571
44   !ERROR: ENTRY 'badentryinbd' may appear only in a subroutine or function
45   entry badentryinbd ! C1571
59   entry okargs(goodarg1, goodarg2)
61   entry badresult() result(br1) ! C1572
64   entry badargs(badarg1,badarg2,badarg3,badarg4,badarg5)
82   entry iok1()
84   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
90   !ERROR: ENTRY cannot have RESULT(ifunc) that is not a variable
91   entry isameres() result(ifunc) ! C1574
92   entry iok()
93 …LT('iok') of function 'isameres2' cannot have the same name as a distinct ENTRY into the same scope
94   entry isameres2() result(iok) ! C1574
96 …T('iok2') of function 'isameres3' cannot have the same name as a distinct ENTRY into the same scope
97   entry isameres3() result(iok2) ! C1574
99   entry iok2()
101   entry iok3() result(weird1)
102   entry iok4() result(weird2)
103   entry iok5() result(weird3)
104   entry iok6() result(weird4)
105   !ERROR: Result of ENTRY is not compatible with result of containing function
106   entry ibadt1() result(weird5)
107   !ERROR: Result of ENTRY is not compatible with result of containing function
108   entry ibadt2() result(weird6)
109   !ERROR: Result of ENTRY is not compatible with result of containing function
110   entry ibadt3() result(iarr)
111   !ERROR: Result of ENTRY is not compatible with result of containing function
112   entry ibadt4() result(alloc)
113   !ERROR: Result of ENTRY is not compatible with result of containing function
114   entry ibadt5() result(ptr)
117   entry isubr()
119   entry implicit()
128   !ERROR: Result of ENTRY is not compatible with result of containing function
129   entry chfunc1() result(chr1)
134   entry subr
136   entry ifunc
138   entry m1
140   entry iok1
145   entry iproc
153     entry m2entry1 ! ok
154     entry m2entry2 ! NOT ok
155     entry m2entry3 ! ok
180     entry m3entry1
196     entry m4entry1 ! in implicit part
198     entry m4entry2 ! in specification part
200     entry m4entry3 ! in executable part
209   entry implicitbad1
212   entry implicitbad2
219     entry ent
228     entry ent1
236     entry ent2
243     entry ent3() result(res)
253   !ERROR: Dummy argument 'x' may not be used before its ENTRY statement
255   entry foo(x)
256   !ERROR: 's7' may not appear as a dummy argument name in this ENTRY statement
257   entry bar(s7)
258   !ERROR: 'z' appears more than once as a dummy argument name in this ENTRY statement
259   entry baz(z,z)
262 !ERROR: Explicit RESULT('f8e1') of function 'f8' cannot have the same name as a distinct ENTRY into…
264   entry f8e1()
265   entry f8e2() result(f8e2) ! ok
266 …!ERROR: Explicit RESULT('f8e1') of function 'f8e3' cannot have the same name as a distinct ENTRY i…
267   entry f8e3() result(f8e1)
268   !ERROR: ENTRY cannot have RESULT(f8) that is not a variable
269   entry f8e4() result(f8)