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

Subversion Repositories openrisc

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

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


! { dg-do compile }
 
! PR fortran/37193
! Check that renamed symbols are not accessiable uner their target name.
 
MODULE m
  IMPLICIT NONE
  INTEGER :: i
END MODULE m
 
PROGRAM main
  USE m, ONLY: j => i
  IMPLICIT NONE
 
  i = 4 ! { dg-error "no IMPLICIT type" }
  j = 5
END PROGRAM main
 
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`! PR fortran/37193`
4			`! Check that renamed symbols are not accessiable uner their target name.`
5
6			`MODULE m`
7			`IMPLICIT NONE`
8			`INTEGER :: i`
9			`END MODULE m`
10
11			`PROGRAM main`
12			`USE m, ONLY: j => i`
13			`IMPLICIT NONE`
14
15			`i = 4 ! { dg-error "no IMPLICIT type" }`
16			`j = 5`
17			`END PROGRAM main`
18
19			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

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