flang/test/Semantics/intrinsics02.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module explicit
   3   intrinsic cos
   4 end
   5 subroutine testExplicit
   6   use explicit
   7   !ERROR: 'cos' is use-associated from module 'explicit' and cannot be re-declared
   8   real :: cos = 2.
   9 end
  10 subroutine extendsUsedIntrinsic
  11   use explicit
  12   interface cos
  13     pure real function mycos(x)
  14       real, intent(in) :: x
  15     end
  16   end interface
  17 end
  18 subroutine sameIntrinsic1
  19   use explicit
  20   !WARNING: Use-associated 'cos' already has 'INTRINSIC' attribute
  21   intrinsic cos
  22   real :: one = cos(0.)
  23 end
  24 module renamer
  25   use explicit, renamedCos => cos
  26 end
  27 subroutine sameIntrinsic2
  28   use explicit
  29   use renamer, cos => renamedCos
  30   real :: one = cos(0.)
  31 end
  32 module implicit
  33   real :: one = cos(0.)
  34 end
  35 subroutine testImplicit
  36   use implicit
  37   real :: cos = 2.
  38 end