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