1! { dg-do run }
2! Tests the fix for PR35780, in which the assignment for C was not
3! scalarized in expr.c.
4!
5! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
6!
7MODULE MODS
8  integer, parameter :: N = 10
9  INTEGER, PARAMETER, DIMENSION(N) ::  A = [(i, i = 1, N)]
10  INTEGER, PARAMETER, DIMENSION(N) ::  B = [(i - 5, i = 1, N)]
11  INTEGER, PARAMETER, DIMENSION(N)  :: C = ISHFTC(3, B, 5)   !ICE
12  INTEGER, PARAMETER, DIMENSION(N)  :: D = ISHFTC(A, 3, 5)   !  OK
13  INTEGER, PARAMETER, DIMENSION(N)  :: E = ISHFTC(A, B, 5)   !  OK
14
15END MODULE MODS
16
17  use mods
18  integer, dimension(N) :: X = A
19  integer, dimension(N) :: Y = B
20
21! Check the simplifed expressions against the library
22  if (any (ISHFTC(3, Y, 5) /= C)) call abort ()
23  if (any (ISHFTC(X, 3, 5) /= D)) call abort ()
24  if (any (ISHFTC(X, Y, 5) /= E)) call abort ()
25end
26