blob: 2786419f53a76560a1f95539fc0fdfab264c367d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! PR fortran/66052
!
!
! Original code from Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
module a
contains
protected x ! { dg-error "only allowed in specification part" }
end module a
program p
contains
protected x ! { dg-error "only allowed in specification part" }
end
|