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] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | 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  
!
      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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`
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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [whole_file_32.f90] - Blame information for rev 774