36 lines
594 B
Fortran
36 lines
594 B
Fortran
! { 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
|
|
! { dg-final { cleanup-modules "gfcbug68" } }
|