mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-06 22:29:13 +00:00
18 lines
451 B
Fortran
18 lines
451 B
Fortran
! PR fortran/81304
|
|
! { dg-do run }
|
|
! { dg-options "-Wsurprising" }
|
|
|
|
program pr81304
|
|
integer :: i
|
|
real, dimension(1:3) :: a, b, c
|
|
a = 128
|
|
b = 0
|
|
!$omp parallel do reduction(min: a) reduction(max: b) private (c) ! { dg-bogus "Type specified for intrinsic function" }
|
|
do i = 1, 16
|
|
c = (/ i, i - 5, i + 5 /)
|
|
a = min (a, c)
|
|
b = max (b, c)
|
|
end do
|
|
if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) STOP 1
|
|
end
|