bounds_check_22.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_22.f90

blob: a84e3dd4f51cbb81d02094e8a3d4a6ee97efa75a (plain)

! { dg-do compile }
! { dg-options "-fcheck=bounds" }
! PR fortran/100656 - ICE in gfc_conv_expr_present

subroutine s(x)
  character(:), allocatable, optional :: x(:)
  if ( present(x) ) then
     if ( allocated(x) ) then
        x = 'a' // x // 'e'
     end if
  end if
end