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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [use_3.f90] - Rev 801

Go to most recent revision | Compare with Previous | Blame | 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" } }

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [use_3.f90] - Rev 801