| ! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic |
| module m |
| !PORTABILITY: Specific procedure 'sin' of generic interface 'yintercept' should not be INTRINSIC |
| intrinsic sin |
| interface yIntercept |
| procedure sin |
| end interface |
| !PORTABILITY: Specific procedure 'cos' of generic interface 'xintercept' should not be INTRINSIC |
| intrinsic cos |
| generic :: xIntercept => cos |
| end module |
| |
| subroutine foo |
| interface slope |
| procedure tan |
| end interface |
| !ERROR: Specific procedure 'tan' of generic interface 'slope' may not be a statement function |
| tan(x) = sin(x) / cos(x) |
| end subroutine |
| |