URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [whole_file_32.f90] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log