39 lines
792 B
Fortran
39 lines
792 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
module explicit
|
||
|
|
intrinsic cos
|
||
|
|
end
|
||
|
|
subroutine testExplicit
|
||
|
|
use explicit
|
||
|
|
!ERROR: 'cos' is use-associated from module 'explicit' and cannot be re-declared
|
||
|
|
real :: cos = 2.
|
||
|
|
end
|
||
|
|
subroutine extendsUsedIntrinsic
|
||
|
|
use explicit
|
||
|
|
interface cos
|
||
|
|
pure real function mycos(x)
|
||
|
|
real, intent(in) :: x
|
||
|
|
end
|
||
|
|
end interface
|
||
|
|
end
|
||
|
|
subroutine sameIntrinsic1
|
||
|
|
use explicit
|
||
|
|
!WARNING: Use-associated 'cos' already has 'INTRINSIC' attribute
|
||
|
|
intrinsic cos
|
||
|
|
real :: one = cos(0.)
|
||
|
|
end
|
||
|
|
module renamer
|
||
|
|
use explicit, renamedCos => cos
|
||
|
|
end
|
||
|
|
subroutine sameIntrinsic2
|
||
|
|
use explicit
|
||
|
|
use renamer, cos => renamedCos
|
||
|
|
real :: one = cos(0.)
|
||
|
|
end
|
||
|
|
module implicit
|
||
|
|
real :: one = cos(0.)
|
||
|
|
end
|
||
|
|
subroutine testImplicit
|
||
|
|
use implicit
|
||
|
|
real :: cos = 2.
|
||
|
|
end
|