gcc/testsuite/gfortran.dg/array_constructor_56.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for the following:
   4 ! PR fortran/93483
   5 ! PR fortran/107216
   6 ! PR fortran/107219
   7 !
   8 ! Contributed by G.Steinmetz
   9
  10 program p
  11   real, parameter :: r0(*) = +[real :: +(1) ]
  12   real, parameter :: r1(*) = +[real :: +[1] ]
  13   real, parameter :: r2(*) = -[real :: [(1)]]
  14   real, parameter :: r3(*) = +[real :: [-(1)]]
  15   real, parameter :: r4(*) = -[real :: [[(1)]]]
  16   real, parameter :: r5(*) = -[real :: -[1, 2]]
  17   real, parameter :: r6(*) = +[real :: +[1, 2]]
  18   real, parameter :: r7(*) =  [real :: 1, 2] * [real :: 1, (2)]
  19   real, parameter :: r8(*) =  [real :: 1, (2)] * [real :: 1, 2]
  20   real, parameter :: r9(*) = +[real :: 1, 2] * [real :: 1, (2)]
  21   real, parameter :: rr(*) = -[real :: 1, (2)] * [real :: 1, 2]
  22 end