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()