gcc/testsuite/gfortran.dg/pr29067.f

   1       ! { dg-do compile }
   2       ! PR fortran/29067
   3       implicit none
   4       integer :: n, i
   5       character(len=16),parameter :: s = "", s2 = "1234567890123456"
   6
   7       i = 0 ; n = 9
   8       print *, s(9:16)
   9       print *, s2(9:16)
  10       if (s(9:16) == "90123456") then
  11       endif
  12       if (i > 0) then
  13         write (i,*) n
  14         call foo(0)
  15       endif
  16       do i = 1, n
  17       end do
  18       end