gcc/testsuite/gfortran.dg/bounds_check_21.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! { dg-options "-Warray-bounds -O2" }
! PR 92422 - this complained about an array subscript out of bounds.

PROGRAM character_warning

  CHARACTER(len=16) :: word

  word = 'hi'
  WRITE(*,*) word

END PROGRAM character_warning