blob: adb265e5b4c4f171989394615fd4031bd834495e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do compile }
module a
type, private, bind(C) b ! { dg-error "Expected :: in TYPE definition" }
integer i
end type b ! { dg-error "Expecting END MODULE statement" }
type, public c ! { dg-error "Expected :: in TYPE definition" }
integer j
end type c ! { dg-error "Expecting END MODULE statement" }
type, private d ! { dg-error "Expected :: in TYPE definition" }
integer k
end type b ! { dg-error "Expecting END MODULE statement" }
type, bind(C), public e ! { dg-error "Expected :: in TYPE definition" }
integer l
end type e ! { dg-error "Expecting END MODULE statement" }
type, bind(C) f ! { dg-error "Expected :: in TYPE definition" }
integer m
end type f ! { dg-error "Expecting END MODULE statement" }
end module a
|
