! { dg-do compile } | |
! PR32760 Error defining subroutine named PRINT | |
! Test case derived from original PR. | |
module gfcbug68 | |
implicit none | |
private :: write | |
contains | |
function foo (i) | |
integer, intent(in) :: i | |
integer foo | |
write (*,*) i | |
call write(i) | |
foo = i | |
end function foo | |
subroutine write (m) | |
integer, intent(in) :: m | |
print *, m*m*m | |
end subroutine write | |
end module gfcbug68 | |
program testit | |
use gfcbug68 | |
integer :: i = 27 | |
integer :: k | |
k = foo(i) | |
print *, "in the main:", k | |
end program testit |