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