libgomp/testsuite/libgomp.fortran/pr81304.f90

   1 ! PR fortran/81304
   2 ! { dg-do run }
   3 ! { dg-options "-Wsurprising" }
   4
   5 program 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 /))) call abort
  17 end