5 ! Contributed by Valery Weber
12 SUBROUTINE get (c_val
)
13 CHARACTER( : ), INTENT( INOUT
), ALLOCATABLE
, OPTIONAL
:: c_val
14 CHARACTER( 10 ) :: c_val_tmp
15 if(present(c_val
)) call abort()
17 SUBROUTINE get2 (c_val
)
18 CHARACTER( : ), INTENT( OUT
), ALLOCATABLE
, OPTIONAL
:: c_val
19 CHARACTER( 10 ) :: c_val_tmp
20 if(present(c_val
)) call abort()