PR rtl-optimization/88470

[official-gcc.git] / libgomp / testsuite / libgomp.fortran / pr88463-1.f90

! PR fortran/88463
! { dg-do compile { target { ! *-*-* } } }

module pr88463_1
  integer, parameter :: c = 1
  real, parameter :: d(4) = (/ 2, 3, 4, 5 /)
end module pr88463_1

program pr88463
  use pr88463_1
  use pr88463_2
  integer :: i
  real :: j(4)
  !$omp parallel default(none) private (i, j)
    i = a + b(1) + b(4) + c + d(1) + d(4)
    j(1:4) = b(1:4)
    j(1:4) = d(1:4)
  !$omp end parallel
end program pr88463