21 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2module m3 !PORTABILITY: Specific procedure 'sin' of generic interface 'yintercept' should not be INTRINSIC [-Wintrinsic-as-specific]4 intrinsic sin5 interface yIntercept6 procedure sin7 end interface8 !PORTABILITY: Specific procedure 'cos' of generic interface 'xintercept' should not be INTRINSIC [-Wintrinsic-as-specific]9 intrinsic cos10 generic :: xIntercept => cos11end module12 13subroutine foo14 interface slope15 procedure tan16 end interface17 !ERROR: Specific procedure 'tan' of generic interface 'slope' may not be a statement function18 tan(x) = sin(x) / cos(x)19end subroutine20 21