gcc/testsuite/gfortran.dg/pr91359_2.f

   1 ! { dg-do run }
   2 ! PR fortran/91359
   3 ! Orginal code contributed by Brian T. Carcich <briantcarcich at gmail dot com>
   4 !
   5       logical function zero() result(a)
   6          goto 2
   7 1        return
   8 2        a = .false.
   9          if (.not.a) goto 1
  10          return
  11       end
  12
  13       program test_zero
  14          logical zero
  15          if (zero()) stop 1
  16       end