1! { dg-do compile }
2! PR32760 Error defining subroutine named PRINT
3! Test case derived from original PR.
4
5module gfcbug68
6  implicit none
7  private :: write
8
9contains
10
11  function foo (i)
12    integer, intent(in)  :: i
13    integer foo
14
15    write (*,*) i
16    call write(i)
17    foo = i
18  end function foo
19
20  subroutine write (m)
21    integer, intent(in) :: m
22    print *, m*m*m
23  end subroutine write
24
25end module gfcbug68
26
27program testit
28  use gfcbug68
29  integer :: i = 27
30  integer :: k
31
32  k = foo(i)
33  print *, "in the main:", k
34end program testit
35