llvm/flang/test/Semantics/intrinsics02.f90

! 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