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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-Wall" }
! PR fortran/49693 - this used to cause a spurious warning for the
! variable in the common block.
! Test case by Stephan Kramer.
module foo
  implicit none
  integer:: a, b
  common a
end module foo
! { dg-final { cleanup-modules "foo" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-Wall" }`
3			`! PR fortran/49693 - this used to cause a spurious warning for the`
4			`! variable in the common block.`
5			`! Test case by Stephan Kramer.`
6			`module foo`
7			`implicit none`
8			`integer:: a, b`
9			`common a`
10			`end module foo`
11			`! { dg-final { cleanup-modules "foo" } }`

Browse

Tools

Subversion Repositories openrisc

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