PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / bounds_check_1.f90
blob1f4810a5eaa70826a6e31949fb34f8eb934f7b7f
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) STOP 1
7 contains
8 function F()
9 integer :: F(1)
10 f = 1
11 end function F
12 end