| ! { dg-do run } |
| ! |
| ! PR fortran/56138 |
| ! |
| ! Contributed by John Chludzinski, using the code of John Reid |
| ! |
| implicit none |
| CHARACTER(LEN=:),ALLOCATABLE :: str |
| if (s_to_c("ABCdef") /= "ABCdef" .or. len(s_to_c("ABCdef")) /= 6) call abort() |
| str = s_to_c("ABCdef") |
| if (str /= "ABCdef" .or. len(str) /= 6) call abort() |
| str(1:3) = s_to_c("123") |
| if (str /= "123def" .or. len(str) /= 6) call abort() |
| |
| contains |
| |
| PURE FUNCTION s_to_c(string) |
| CHARACTER(LEN=*),INTENT(IN) :: string |
| CHARACTER(LEN=:),ALLOCATABLE :: s_to_c |
| s_to_c = string |
| ENDFUNCTION s_to_c |
| end |
