URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [use_8.f90] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
module a
type, private, bind(C) b ! { dg-error "Expected :: in TYPE definition" }
integer i
end type b ! { dg-error "Expecting END MODULE statement" }
type, public c ! { dg-error "Expected :: in TYPE definition" }
integer j
end type c ! { dg-error "Expecting END MODULE statement" }
type, private d ! { dg-error "Expected :: in TYPE definition" }
integer k
end type b ! { dg-error "Expecting END MODULE statement" }
type, bind(C), public e ! { dg-error "Expected :: in TYPE definition" }
integer l
end type e ! { dg-error "Expecting END MODULE statement" }
type, bind(C) f ! { dg-error "Expected :: in TYPE definition" }
integer m
end type f ! { dg-error "Expecting END MODULE statement" }
end module a
Go to most recent revision | Compare with Previous | Blame | View Log