2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / access_spec_1.f90
blob8bebd11313085713f207721c67aa2337387c0fdf
1 ! { dg-do compile }
2 ! PR fortran/31472
3 ! Access specifications: Valid Fortran 2003 code
4 module mod
5 implicit none
6 private
7 integer, public :: i
8 integer, private :: z
9 integer :: j, x
10 private :: j
11 public :: x
12 type, public :: bar
13 PRIVATE
14 integer, public :: y ! Fortran 2003
15 integer, private :: z ! Fortran 2003
16 end type
17 end module