1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 2module 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 11end module 12 13subroutine 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) 19end subroutine 20 21