blob: ee6c3635912dbe8d2805cf2779f1c6f0ca98c3f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do compile }
! { dg-options "-std=f2003" }
program a
implicit none
integer n, m(3,3)
integer(kind=8) k
integer, allocatable :: i(:), j(:)
real, allocatable :: x(:)
n = 42
m = n
k = 1_8
allocate(i(4), source=42, source=n) ! { dg-error "Redundant SOURCE tag found" }
allocate(integer(4) :: i(4), source=n) ! { dg-error "conflicts with the typespec" }
allocate(i(4), j(n), source=n) ! { dg-error "Fortran 2008: SOURCE tag at .1. with more than a single allocate object" }
allocate(x(4), source=n) ! { dg-error "type incompatible with" }
allocate(i(4), source=m) ! { dg-error "must be scalar or have the same rank" }
allocate(i(4), source=k) ! { dg-error "shall have the same kind type" }
end program a
|
