| ! { dg-do compile } | |
| function reverse(string) | |
| implicit none | |
| character(len=*), intent(in) :: string | |
| character(len=:),allocatable :: reverse | |
| integer i | |
| reverse = string | |
| forall (i=1:len(reverse)) reverse(i:i) = & | |
| reverse(len(reverse)-i+1:len(reverse)-i+1) | |
| end function reverse |