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