2 ! PR fortran/34495 - accepts invalid init-expr with TRANSFER
4 ! 'b' is implicitly typed
5 real :: a = transfer(1234, b) ! { dg-error "does not reduce to a constant" }
7 ! 'c' is used on lhs and rhs
8 real :: c = transfer(1234, c) ! { dg-error "does not reduce to a constant" }
10 ! 'bp' is implicitly typed
11 real, parameter :: ap = transfer(1234, bp) ! { dg-error "does not reduce to a constant" }
13 ! 'yp' is used on lhs and rhs
14 real, parameter :: cp = transfer(1234, cp) ! { dg-error "before its definition is complete" }
18 real, dimension(2) :: a2 = transfer([1, 2], b2) ! { dg-error "does not reduce to a constant" }
20 real, dimension(2) :: a2 = transfer([1, 2], b2) ! { dg-error "does not reduce to a constant" }
23 real, parameter, dimension(2) :: ap2 = transfer([1, 2], bp2) ! { dg-error "does not reduce to a constant" }
25 real, parameter, dimension(2) :: cp2 = transfer([1, 2], cp2) ! { dg-error "before its definition is complete" }
29 real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3) ! { dg-error "does not reduce to a constant" }
31 real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3) ! { dg-error "does not reduce to a constant" }
34 real, parameter, dimension(2,2) :: ap3 = transfer([1, 2, 3, 4], bp3) ! { dg-error "does not reduce to a constant" }
36 real, parameter, dimension(2,2) :: cp3 = transfer([1, 2, 3, 4], cp3) ! { dg-error "before its definition is complete" }