| ! { dg-do run } | |
| ! | |
| ! PR fortran/57596 | |
| ! | |
| ! Contributed by Valery Weber | |
| ! | |
| PROGRAM main | |
| IMPLICIT NONE | |
| call get () | |
| call get2 () | |
| contains | |
| SUBROUTINE get (c_val) | |
| CHARACTER( : ), INTENT( INOUT ), ALLOCATABLE, OPTIONAL :: c_val | |
| CHARACTER( 10 ) :: c_val_tmp | |
| if(present(c_val)) STOP 1 | |
| END SUBROUTINE get | |
| SUBROUTINE get2 (c_val) | |
| CHARACTER( : ), INTENT( OUT ), ALLOCATABLE, OPTIONAL :: c_val | |
| CHARACTER( 10 ) :: c_val_tmp | |
| if(present(c_val)) STOP 2 | |
| END SUBROUTINE get2 | |
| END PROGRAM main |