blob: 6626fbd5a541ede5aaa1e1f15c3f04055f1421be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|
