gcc/testsuite/gfortran.dg/pr104313.f


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! { dg-additional-options "-ff2c -fdump-tree-original" }
!
! PR fortran/104313 - ICE verify_gimple failed with -ff2c
! Contributed by G.Steinmetz

      function f(a)
      return
      end

! { dg-final { scan-tree-dump-times "return" 1 "original" } }