5 ! Don't auto-deallocatable scalar character allocatables.
8 character(len
=5), allocatable
:: str
11 if(str
/= '1bcde') call abort()
12 call sub(str
,len(str
))
13 if(str
/= '1bcde') call abort()
14 call subOUT(str
,len(str
))
15 if (len(str
) /= 5) call abort()
16 if(allocated(str
)) call abort()
20 character(len
=n
), allocatable
:: x
21 if(len(x
) /= 5) call abort()
22 if(x
/= '1bcde') call abort()
24 subroutine subOUT(x
,n
)
26 character(len
=n
), allocatable
,intent(out
) :: x
27 if(allocated(x
)) call abort()
28 if(len(x
) /= 5) call abort()