| ! { 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 |