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

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

! { dg-do compile }
! PR fortran/68224
! Original code contribute by Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
! 
program p
   integer, parameter :: a(null()) = [1, 2]   ! { dg-error "scalar INTEGER expression" }
   integer, parameter :: b(null():*) = [1, 2]   ! { dg-error "scalar INTEGER expression" }
   integer, parameter :: c(1:null()) = [1, 2]   ! { dg-error "scalar INTEGER expression" }
end program p