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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/29876 ICE on bad operator in ONLY clause of USE statement
! Testcase contributed by Francois-Xavier Coudert 
!
module foo
end module foo
 
program test
  use foo, only : operator(.none.)           ! { dg-error "not found in module" }
  end program test
! { dg-final { cleanup-modules "foo" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/29876 ICE on bad operator in ONLY clause of USE statement`
4			`! Testcase contributed by Francois-Xavier Coudert`
5			`!`
6			`module foo`
7			`end module foo`
8
9			`program test`
10			`use foo, only : operator(.none.) ! { dg-error "not found in module" }`
11			`end program test`
12			`! { dg-final { cleanup-modules "foo" } }`

Browse

Tools

Subversion Repositories openrisc

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