blob: 8b855d903183d4356329db245c7c18b4312d8839 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! Contributed by Gerhard Steinmetz
program p
typea ! { dg-error "Mangled derived type" }
integer b
end type ! { dg-error "Expecting END PROGRAM" }
type(a) :: c ! { dg-error "is being used before it" }
c = a(1)
print *, c
end
|