gcc/testsuite/gfortran.dg/pr57553.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
!
! PR fortran/57553 - bad error message for invalid use of STORAGE_SIZE
!
! Testcase contributed by Tobias Burnus

subroutine S (A)
  character(len=*), intent(in) :: A
  integer, parameter :: ESize = (storage_size(a) + 7) / 8 ! { dg-error "does not reduce to a constant" }
end