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