| ! Test alternate entry points for functions when the result types | |
| ! of all entry points match | |
| function f1 (a) | |
| integer a, f1, e1 | |
| f1 = 15 + a | |
| return | |
| entry e1 | |
| e1 = 42 | |
| end function | |
| function f2 () | |
| real f2, e2 | |
| entry e2 | |
| e2 = 45 | |
| end function | |
| program entrytest | |
| integer f1, e1 | |
| real f2, e2 | |
| if (f1 (6) .ne. 21) call abort () | |
| if (e1 () .ne. 42) call abort () | |
| if (f2 () .ne. 45) call abort () | |
| if (e2 () .ne. 45) call abort () | |
| end |