use_rename_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 27 行

! { dg-do run }
! { dg-options "-O1" }
! Checks the fix for PR34896 which was a regression that prevented max
! and min from being interchanged by the USE statement below.  It is further
! checked by libgomp/testsuite/libgomp.fortran/reduction5.f90
!
! Reported by H.J. Lu <[e-mail]>
!
module reduction5
  intrinsic min, max
end module reduction5

program reduction_5_regression
  call test2
contains
  subroutine test2
    use reduction5, min => max, max => min
    integer a, b
    a = max (1,5)
    b = min (1,5)
    if (a .ne. 1) call abort ()
    if (b .ne. 5) call abort ()
  end subroutine test2
end

! { dg-final { cleanup-modules "reduction5" } }