6 lines
96 B
Fortran
6 lines
96 B
Fortran
|
! { dg-do compile }
|
||
|
|
|
||
|
|
character(len=*), parameter :: s = "foo"
|
||
|
|
write (*,*) adjustr(s(:))
|
||
|
|
end
|