3 subroutine not_an_f03_intrinsic
7 byte, allocatable
:: x
, y(:)
8 real*8, allocatable
:: x8
, y8(:)
15 type(real_type
), allocatable
:: b
, c(:)
17 allocate(byte :: x
) ! { dg-error "Error in type-spec at" }
18 allocate(byte :: y(1)) ! { dg-error "Error in type-spec at" }
20 allocate(real*8 :: x
) ! { dg-error "Invalid type-spec at" }
21 allocate(real*8 :: y(1)) ! { dg-error "Invalid type-spec at" }
22 allocate(real*4 :: x8
) ! { dg-error "Invalid type-spec at" }
23 allocate(real*4 :: y8(1)) ! { dg-error "Invalid type-spec at" }
24 allocate(double complex :: d1
) ! { dg-error "neither a data pointer nor an allocatable" }
25 allocate(real_type
:: b
)
26 allocate(real_type
:: c(1))
28 end subroutine not_an_f03_intrinsic