Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=legacy" }

!

! PR fortran/25062

!

! F2003: 16.2.1

! "A name that identifies a common block in a scoping unit shall not be used

!  to identify a constant or an intrinsic procedure in that scoping unit."

!

subroutine try

 implicit none

 COMMON /s/ J

 COMMON /bar/ I

 INTEGER I, J

 real s, x

 s(x)=sin(x)

 print *, s(5.0)

 call bar()

contains

 subroutine bar

   print *, 'Hello world'

 end subroutine bar

end subroutine try

program test

 implicit none

 COMMON /abs/ J ! { dg-error "is also an intrinsic procedure" }

 intrinsic :: abs

 INTEGER J

 external try

 call try

end program test