Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 39 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/access_spec_2.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/access_spec_2.f90
new file mode 100644
index 000000000..ccb56e2cd
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/access_spec_2.f90
@@ -0,0 +1,39 @@
+! { dg-do compile }
+! { dg-options "-std=f95" }
+! PR fortran/31472
+! Access specifications: Invalid Fortran 95 code
+
+module test
+  implicit none
+  integer, public :: x
+  public :: x  ! { dg-error "was already specified" }
+  private :: x ! { dg-error "was already specified" }
+end module test
+
+module mod
+  implicit none
+  private
+  type, public :: bar
+    PRIVATE
+    integer, public :: y  ! { dg-error "Fortran 2003: Attribute PUBLIC" }
+    integer, public :: z  ! { dg-error "Fortran 2003: Attribute PUBLIC" }
+  end type ! { dg-error "Derived type definition at" }
+contains
+  subroutine foo
+     integer :: x
+     private :: x ! { dg-error "only allowed in the specification part of a module" }
+     type, private :: t ! { dg-error "only be PRIVATE in the specification part of a module" }
+        integer :: z
+     end type t ! { dg-error "Expecting END SUBROUTINE statement" }
+     type :: ttt
+        integer,public :: z ! { dg-error "not allowed outside of the specification part of a module" }
+     end type ttt ! { dg-error "Derived type definition at" }
+  end subroutine
+end module
+
+program x
+  implicit none
+  integer :: i
+  public  :: i ! { dg-error "only allowed in the specification part of a module" }
+  integer,public :: j ! { dg-error "not allowed outside of the specification part of a module" }
+end program x