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