URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do link }
! PR fortran/40011
!
! Contributed by Joost VandeVondele
!
!
! Before no "one" function was generated with -fwhole-file.
!
!
SUBROUTINE one ( )
END SUBROUTINE one
 
SUBROUTINE two ( )
END SUBROUTINE two
 
MODULE mod
CONTAINS
  SUBROUTINE three ( )
    CALL two ( )
  END SUBROUTINE three
  SUBROUTINE four ( )
      CALL one ( )
  END SUBROUTINE four
END MODULE mod
END
 
! { dg-final { cleanup-modules "mod" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do link }`
2			`! PR fortran/40011`
3			`!`
4			`! Contributed by Joost VandeVondele`
5			`!`
6			`!`
7			`! Before no "one" function was generated with -fwhole-file.`
8			`!`
9			`!`
10			`SUBROUTINE one ( )`
11			`END SUBROUTINE one`
12
13			`SUBROUTINE two ( )`
14			`END SUBROUTINE two`
15
16			`MODULE mod`
17			`CONTAINS`
18			`SUBROUTINE three ( )`
19			`CALL two ( )`
20			`END SUBROUTINE three`
21			`SUBROUTINE four ( )`
22			`CALL one ( )`
23			`END SUBROUTINE four`
24			`END MODULE mod`
25			`END`
26
27			`! { dg-final { cleanup-modules "mod" } }`

Browse

Tools

Subversion Repositories openrisc

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