| ! { dg-do compile } | |
| ! | |
| ! PR fortran/39288 | |
| ! | |
| ! From IR F03/0129, cf. | |
| ! Fortran 2003, Technical Corrigendum 5 | |
| ! | |
| ! Was invalid before. | |
| SUBROUTINE S(A,I,K) | |
| USE ISO_C_BINDING | |
| CHARACTER(*),TARGET :: A | |
| CHARACTER(:),ALLOCATABLE,TARGET :: B | |
| TYPE(C_PTR) P1,P2,P3,P4,P5 | |
| P1 = C_LOC(A(1:1)) ! *1 | |
| P2 = C_LOC(A(I:I)) ! *2 | |
| P3 = C_LOC(A(1:)) ! *3 | |
| P4 = C_LOC(A(I:K)) ! *4 | |
| ALLOCATE(CHARACTER(1)::B) | |
| P5 = C_LOC(B) ! *5 | |
| END SUBROUTINE |