blob: f1c8bc3db643a08ce6a74f3ee8f106e7fec55c5b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
!
! Code contributed by Gerhard Steinmetz
!
program pr82620
type t(a)
integer, len :: a
end type
type(t(:)), allocatable :: x, y
allocate(t(4) :: x)
allocate)t(7) :: y) ! { dg-error "Syntax error in ALLOCATE" }
end program pr82620
|