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