[Bug fortran/31243] truncating strings longer than 2**32 characters

[fxcoudert at gcc dot gnu dot org]

------- Comment #9 from fxcoudert at gcc dot gnu dot org  2009-05-16 16:15 -------
Patch posted for the compile-time part of this PR:
http://gcc.gnu.org/ml/gcc-patches/2009-05/msg01013.html

Here are three testcases that should be handled when runtime checking is
performed:

$ cat a3.f90 
program main
  implicit none
  character(len=10) :: s
  integer(kind=8) :: i

  s = 'xxxxxxxxxx'
  i = 2_8**32_8+3_8
  print *, s(1:i) ! runtime error expected
  print *, s(i:i) ! runtime error expected

end program main

$ cat a4.f90 
program main

  call foo(2_8**32_8+4_8)

contains

  subroutine foo(i)
    integer(kind=8), intent(in) :: i
    character(len=i) :: x

    print *, len(x)
  end subroutine foo

end program main

$ cat a5.f90 
program main

  print *, foo(2_8**32_8+4_8)

contains

  function foo(i)
    integer(kind=8), intent(in) :: i
    character(len=i) :: foo

    foo = "x"
  end function foo

end program main


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31243