3 ! tests for passing arrays of assumed length characters
5 character(5), dimension(:), allocatable :: c
14 character (len = *), dimension(:) :: x
15 if (any (x .ne. "BLUBB")) CALL abort()
20 character (len = *), dimension(n) :: x
21 if (any (x .ne. "BLUBB")) CALL abort()