gcc/testsuite/gfortran.dg/bounds_check_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fbounds-check" }
   3 ! PR fortran/27524
   4     integer :: res(1)
   5     res = F()
   6     if (res(1) /= 1) call abort
   7     contains
   8       function F()
   9         integer :: F(1)
  10         f = 1
  11       end function F
  12     end