blob: 02bb76fb77cbaddde5b121eab7129b8adedc188a (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
program p
integer, parameter :: a(0) = 0
character(0), parameter :: b(0) = ''
a%kind = 1 ! { dg-error "Assignment to a constant expression" }
b%len = 'a' ! { dg-error "Assignment to a constant expression" }
end program
|