1! { dg-do compile } 2! { dg-options "-O -finline-small-functions" } 3! Tests the fix for PR45743 in which the compilation failed with an ICE 4! internal compiler error: verify_stmts failed. The source is the essential 5! part of whole_file_3.f90. 6! 7! Contributed by Zdenek Sojka <zsojka@seznam.cz> 8! 9 SUBROUTINE PHLOAD (READER,*) 10 IMPLICIT NONE 11 EXTERNAL READER 12 CALL READER (*1) 13 1 RETURN 1 14 END SUBROUTINE 15 16 program test 17 EXTERNAL R 18 CALL PHLOAD (R, *999) ! This one is OK 19 999 continue 20 END program test 21