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

Subversion Repositories openrisc

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

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


! { dg-do compile }
module foo
end module foo
 
  use foo
  use :: foo
  use, intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
  use, non_intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
  use, nonintrinsic :: iso_fortran_env ! { dg-error "shall be either INTRINSIC or NON_INTRINSIC" }
  use, intrinsic :: iso_fortran_env
end
! { dg-final { cleanup-modules "foo" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`module foo`
3			`end module foo`
4
5			`use foo`
6			`use :: foo`
7			`use, intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }`
8			`use, non_intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }`
9			`use, nonintrinsic :: iso_fortran_env ! { dg-error "shall be either INTRINSIC or NON_INTRINSIC" }`
10			`use, intrinsic :: iso_fortran_env`
11			`end`
12			`! { dg-final { cleanup-modules "foo" } }`

Browse

Tools

Subversion Repositories openrisc

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