[Bug fortran/32760] Error defining subroutine named PRINT

[jvdelisle at gcc dot gnu dot org]

------- Comment #12 from jvdelisle at gcc dot gnu dot org  2007-07-26 04:54 -------
This test case appears to execute correctly:

module gfcbug68
  implicit none
  public :: write

contains

  function foo (i)
    integer, intent(in)  :: i
    integer foo

    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
  call write(33)
end program testit


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32760