gcc/testsuite/gfortran.dg/transfer_simplify_7.f90

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