blob: 4701fb36225cd32ec4090382047a69722cdfe94d [file] [log] [blame]
! { dg-do compile }
!
! Test the fix for the following:
! PR fortran/93483
! PR fortran/107216
! PR fortran/107219
!
! Contributed by G.Steinmetz
program p
real, parameter :: r0(*) = +[real :: +(1) ]
real, parameter :: r1(*) = +[real :: +[1] ]
real, parameter :: r2(*) = -[real :: [(1)]]
real, parameter :: r3(*) = +[real :: [-(1)]]
real, parameter :: r4(*) = -[real :: [[(1)]]]
real, parameter :: r5(*) = -[real :: -[1, 2]]
real, parameter :: r6(*) = +[real :: +[1, 2]]
real, parameter :: r7(*) = [real :: 1, 2] * [real :: 1, (2)]
real, parameter :: r8(*) = [real :: 1, (2)] * [real :: 1, 2]
real, parameter :: r9(*) = +[real :: 1, 2] * [real :: 1, (2)]
real, parameter :: rr(*) = -[real :: 1, (2)] * [real :: 1, 2]
end