gcc/testsuite/gfortran.dg/pr91372.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
! { dg-require-visibility "" }
! PR fortran/91372   
module module_sf_lake
    implicit none 
    integer, parameter ::      r8 = selected_real_kind(12) 
    integer, private  :: i
    real(r8) :: sand(2)                           ! percent sand
    data(sand(i), i=1,2)/92.,80./
end module module_sf_lake