flang/test/Semantics/generic06.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module m
   3   !PORTABILITY: Specific procedure 'sin' of generic interface 'yintercept' should not be INTRINSIC
   4   intrinsic sin
   5   interface yIntercept
   6     procedure sin
   7   end interface
   8   !PORTABILITY: Specific procedure 'cos' of generic interface 'xintercept' should not be INTRINSIC
   9   intrinsic cos
  10   generic :: xIntercept => cos
  11 end module
  12
  13 subroutine foo
  14   interface slope
  15     procedure tan
  16   end interface
  17   !ERROR: Specific procedure 'tan' of generic interface 'slope' may not be a statement function
  18   tan(x) = sin(x) / cos(x)
  19 end subroutine
  20