gcc/testsuite/gfortran.dg/pr104313.f

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-ff2c -fdump-tree-original" }
   3 !
   4 ! PR fortran/104313 - ICE verify_gimple failed with -ff2c
   5 ! Contributed by G.Steinmetz
   6
   7       function f(a)
   8       return
   9       end
  10
  11 ! { dg-final { scan-tree-dump-times "return" 1 "original" } }