summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/transfer_simplify_7.f90
blob: 0ba3efa32a04dc0d7a498c8b404c730801b8d49e (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
29
30
31
32
33
34
35
36
37
38
! { dg-do compile }
! PR fortran/34495 - accepts invalid init-expr with TRANSFER

! 'b' is implicitly typed
real :: a = transfer(1234, b)              ! { dg-error "does not reduce to a constant" }

! 'c' is used on lhs and rhs
real :: c = transfer(1234, c)              ! { dg-error "does not reduce to a constant" }

! 'bp' is implicitly typed
real, parameter :: ap = transfer(1234, bp) ! { dg-error "does not reduce to a constant" }

! 'yp' is used on lhs and rhs
real, parameter :: cp = transfer(1234, cp) ! { dg-error "before its definition is complete" }


! same with arrays
real, dimension(2) :: a2 = transfer([1, 2], b2)  ! { dg-error "does not reduce to a constant" }

real, dimension(2) :: a2 = transfer([1, 2], b2)  ! { dg-error "does not reduce to a constant" }

dimension :: bp(2)
real, parameter, dimension(2) :: ap2 = transfer([1, 2], bp2)  ! { dg-error "does not reduce to a constant" }

real, parameter, dimension(2) :: cp2 = transfer([1, 2], cp2)  ! { dg-error "before its definition is complete" }


! same with matrices
real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3)  ! { dg-error "does not reduce to a constant" }

real, dimension(2,2) :: a3 = transfer([1, 2, 3, 4], b3)  ! { dg-error "does not reduce to a constant" }

dimension :: bp3(2,2)
real, parameter, dimension(2,2) :: ap3 = transfer([1, 2, 3, 4], bp3)  ! { dg-error "does not reduce to a constant" }

real, parameter, dimension(2,2) :: cp3 = transfer([1, 2, 3, 4], cp3)  ! { dg-error "before its definition is complete" }

end