| ! { dg-do compile } |
| ! { dg-options "-fwhole-file" } |
| ! Tests the fix for PR26227 in which the interface mismatches |
| ! below were not detected. |
| ! |
| ! Contributed by Andrew Pinski <pinskia@gcc.gnu.org> |
| ! |
| SUBROUTINE PHLOAD (READER,*) |
| IMPLICIT NONE |
| EXTERNAL READER |
| CALL READER (*1) |
| 1 RETURN 1 |
| END SUBROUTINE |
| |
| program test |
| EXTERNAL R |
| call PHLOAD (R, 1) ! { dg-warning "Missing alternate return spec" } |
| CALL PHLOAD (R, 2) ! { dg-warning "Missing alternate return spec" } |
| CALL PHLOAD (R, *999) ! This one is OK |
| 999 continue |
| END program test |
