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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do compile }
2 
module a
3 
 
4 
  type, private, bind(C) b ! { dg-error "Expected :: in TYPE definition" }
5 
    integer i
6 
  end type b ! { dg-error "Expecting END MODULE statement" }
7 
 
8 
  type, public c ! { dg-error "Expected :: in TYPE definition" }
9 
    integer j
10 
  end type c ! { dg-error "Expecting END MODULE statement" }
11 
 
12 
  type, private d ! { dg-error "Expected :: in TYPE definition" }
13 
    integer k
14 
  end type b ! { dg-error "Expecting END MODULE statement" }
15 
 
16 
  type, bind(C), public e ! { dg-error "Expected :: in TYPE definition" }
17 
    integer l
18 
  end type e ! { dg-error "Expecting END MODULE statement" }
19 
 
20 
  type, bind(C) f ! { dg-error "Expected :: in TYPE definition" }
21 
    integer m
22 
  end type f ! { dg-error "Expecting END MODULE statement" }
23 
 
24 
end module a

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.