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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-options "-std=f95" }
3
! PR fortran/31472
4
! Access specifications: Invalid Fortran 95 code
5
 
6
module test
7
  implicit none
8
  integer, public :: x
9
  public :: x  ! { dg-error "was already specified" }
10
  private :: x ! { dg-error "was already specified" }
11
end module test
12
 
13
module mod
14
  implicit none
15
  private
16
  type, public :: bar
17
    PRIVATE
18
    integer, public :: y  ! { dg-error "Fortran 2003: Attribute PUBLIC" }
19
    integer, public :: z  ! { dg-error "Fortran 2003: Attribute PUBLIC" }
20
  end type ! { dg-error "Derived type definition at" }
21
contains
22
  subroutine foo
23
     integer :: x
24
     private :: x ! { dg-error "only allowed in the specification part of a module" }
25
     type, private :: t ! { dg-error "only be PRIVATE in the specification part of a module" }
26
        integer :: z
27
     end type t ! { dg-error "Expecting END SUBROUTINE statement" }
28
     type :: ttt
29
        integer,public :: z ! { dg-error "not allowed outside of the specification part of a module" }
30
     end type ttt ! { dg-error "Derived type definition at" }
31
  end subroutine
32
end module
33
 
34
program x
35
  implicit none
36
  integer :: i
37
  public  :: i ! { dg-error "only allowed in the specification part of a module" }
38
  integer,public :: j ! { dg-error "not allowed outside of the specification part of a module" }
39
end program x
40
! { dg-final { cleanup-modules "test mod" } }

powered by: WebSVN 2.1.0

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