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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [use_rename_4.f90] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do run }
 
! PR fortran/37193
! Check fix for problem with re-using the same symbol both renamed and
! plain.
 
MODULE m
  IMPLICIT NONE
  INTEGER :: i
END MODULE m
 
PROGRAM main
  USE m, ONLY: i, j => i
  IMPLICIT NONE
 
  i = 4
  j = 5
 
  IF (i /= j) THEN
    CALL abort ()
  END IF
END PROGRAM main

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2
3			`! PR fortran/37193`
4			`! Check fix for problem with re-using the same symbol both renamed and`
5			`! plain.`
6
7			`MODULE m`
8			`IMPLICIT NONE`
9			`INTEGER :: i`
10			`END MODULE m`
11
12			`PROGRAM main`
13			`USE m, ONLY: i, j => i`
14			`IMPLICIT NONE`
15
16			`i = 4`
17			`j = 5`
18
19			`IF (i /= j) THEN`
20			`CALL abort ()`
21			`END IF`
22			`END PROGRAM main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [use_rename_4.f90] - Blame information for rev 384