gcc/testsuite/gfortran.dg/bounds_check_22.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcheck=bounds" }
   3 ! PR fortran/100656 - ICE in gfc_conv_expr_present
   4
   5 subroutine s(x)
   6   character(:), allocatable, optional :: x(:)
   7   if ( present(x) ) then
   8      if ( allocated(x) ) then
   9         x = 'a' // x // 'e'
  10      end if
  11   end if
  12 end