Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/private_type_7.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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