| ! { 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 |