1! PR fortran/81304
2! { dg-do run }
3! { dg-options "-Wsurprising" }
4
5program pr81304
6   integer :: i
7   real, dimension(1:3) :: a, b, c
8   a = 128
9   b = 0
10!$omp parallel do reduction(min: a) reduction(max: b) private (c)	! { dg-bogus "Type specified for intrinsic function" }
11   do i = 1, 16
12     c = (/ i, i - 5, i + 5 /)
13     a = min (a, c)
14     b = max (b, c)
15   end do
16   if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) stop 1
17end
18