blob: a5962bb86611a032ec33d7e547b29969047096c2 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|
