gcc/testsuite/gfortran.dg/string_2.f90

   1 ! { dg-do compile }
   2 !
   3 program main
   4   implicit none
   5   character(len=10) :: s
   6
   7   s = ''
   8   print *, s(1:2_8**32_8+3_8) ! { dg-error "exceeds the string length" }
   9   print *, s(2_8**32_8+3_8:2_8**32_8+4_8) ! { dg-error "exceeds the string length" }
  10   print *, len(s(1:2_8**32_8+3_8)) ! { dg-error "exceeds the string length" }
  11
  12 end program main