| ! { 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 |