1! { dg-do compile }
2! PR fortran/34495 - accepts invalid init-expr with TRANSFER
3
4! 'b' is implicitly typed
5real :: a = transfer(1234, b)              ! { dg-error "does not reduce to a constant" }
6
7! 'c' is used on lhs and rhs
8real :: c = transfer(1234, c)              ! { dg-error "does not reduce to a constant" }
9
10! 'bp' is implicitly typed
11real, parameter :: ap = transfer(1234, bp) ! { dg-error "does not reduce to a constant" }
12
13! 'yp' is used on lhs and rhs
14real, parameter :: cp = transfer(1234, cp) ! { dg-error "before its definition is complete" }
15
16
17! same with arrays
18real, dimension(2) :: a2 = transfer([1, 2], b2)  ! { dg-error "does not reduce to a constant" }
19
20real, dimension(2) :: a2 = transfer([1, 2], b2)  ! { dg-error "does not reduce to a constant" }
21
22dimension :: bp(2)
23real, parameter, dimension(2) :: ap2 = transfer([1, 2], bp2)  ! { dg-error "does not reduce to a constant" }
24
25real, parameter, dimension(2) :: cp2 = transfer([1, 2], cp2)  ! { dg-error "before its definition is complete" }
26
27
28! same with matrices
29real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3)  ! { dg-error "does not reduce to a constant" }
30
31real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3)  ! { dg-error "does not reduce to a constant" }
32
33dimension :: bp3(2,2)
34real, parameter, dimension(2,2) :: ap3 = transfer([1, 2, 3, 4], bp3)  ! { dg-error "does not reduce to a constant" }
35
36real, parameter, dimension(2,2) :: cp3 = transfer([1, 2, 3, 4], cp3)  ! { dg-error "before its definition is complete" }
37
38end
39