! { dg-do compile } | |
! { dg-options "-O -finline-small-functions" } | |
! Tests the fix for PR45743 in which the compilation failed with an ICE | |
! internal compiler error: verify_stmts failed. The source is the essential | |
! part of whole_file_3.f90. | |
! | |
! Contributed by Zdenek Sojka <zsojka@seznam.cz> | |
! | |
SUBROUTINE PHLOAD (READER,*) | |
IMPLICIT NONE | |
EXTERNAL READER | |
CALL READER (*1) | |
1 RETURN 1 | |
END SUBROUTINE | |
program test | |
EXTERNAL R | |
CALL PHLOAD (R, *999) ! This one is OK | |
999 continue | |
END program test |