bounds_check_21.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/bounds_check_21.f90

blob: 181d6230413db8229b84ba69231cab2fc594423a (plain)

! { 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