3 ! Checks the fix for PR34896 which was a regression that prevented max
4 ! and min from being interchanged by the USE statement below. It is further
5 ! checked by libgomp/testsuite/libgomp.fortran/reduction5.f90
7 ! Reported by H.J. Lu <hjl.tools@gmail.com>
13 program reduction_5_regression
17 use reduction5
, min
=> max
, max
=> min