| ! { dg-do run } | |
| ! PR fortran/91359 | |
| ! Orginal code contributed by Brian T. Carcich <briantcarcich at gmail dot com> | |
| ! | |
| logical function zero() result(a) | |
| goto 2 | |
| 1 return | |
| 2 a = .false. | |
| if (.not.a) goto 1 | |
| return | |
| end | |
| program test_zero | |
| logical zero | |
| if (zero()) stop 'FAIL: zero() returned .TRUE.' | |
| stop 'OKAY: zero() returned .FALSE.' | |
| end |