3 ! Original code contribute by Gerhard Steinmetz
4 ! <gerhard dot steinmetz dot fortran at t-online dot de>
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" }