gcc/testsuite/gfortran.dg/access_spec_1.f90

   1 ! { dg-do compile }
   2 ! { dg-require-visibility "" }
   3 ! PR fortran/31472
   4 ! Access specifications: Valid Fortran 2003 code
   5 module mod
   6   implicit none
   7   private
   8   integer, public :: i
   9   integer, private :: z
  10   integer :: j, x
  11   private :: j
  12   public  :: x
  13   type, public :: bar
  14     PRIVATE
  15     integer, public :: y  ! Fortran 2003
  16     integer, private :: z  ! Fortran 2003
  17   end type
  18 end module