gcc/testsuite/gfortran.dg/use_rename_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O1" }
   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
   6 !
   7 ! Reported by H.J. Lu <hjl.tools@gmail.com>
   8 !
   9 module reduction5
  10   intrinsic min, max
  11 end module reduction5
  12
  13 program reduction_5_regression
  14   call test2
  15 contains
  16   subroutine test2
  17     use reduction5, min => max, max => min
  18     integer a, b
  19     a = max (1,5)
  20     b = min (1,5)
  21     if (a .ne. 1) call abort ()
  22     if (b .ne. 5) call abort ()
  23   end subroutine test2
  24 end