c: Fix up pointer types to may_alias structures [PR114493]

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr57553.f90

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