! { dg-do compile }
! { dg-options "" }
! 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-error "Missing alternate return specifier" }
      CALL PHLOAD (R, 2) ! { dg-error "Missing alternate return specifier" }
      CALL PHLOAD (R, *999) ! This one is OK
 999  continue
      END program test