summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/whole_file_32.f90
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