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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/34657
!
module test_mod
interface
  subroutine my_sub (a)
    real a
  end subroutine
end interface
end module
 
subroutine my_sub (a)
  use test_mod, gugu => my_sub
  real a
  print *, a
end subroutine
 
END
 
! { dg-final { cleanup-modules "test_mod" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/34657`
4			`!`
5			`module test_mod`
6			`interface`
7			`subroutine my_sub (a)`
8			`real a`
9			`end subroutine`
10			`end interface`
11			`end module`
12
13			`subroutine my_sub (a)`
14			`use test_mod, gugu => my_sub`
15			`real a`
16			`print *, a`
17			`end subroutine`
18
19			`END`
20
21			`! { dg-final { cleanup-modules "test_mod" } }`

Browse

Tools

Subversion Repositories openrisc

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