blob: 520c7ab3917d7d5c6822c6527bd17afefdfee092 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! PR fortran/50556
subroutine foo
save i
namelist /i/ ii ! { dg-error "cannot have the SAVE attribute" }
end subroutine foo
subroutine bar
namelist /i/ ii
save i ! { dg-error "cannot have the SAVE attribute" }
end subroutine bar
|