1! PR14081 character variables in common blocks.
2
3subroutine test1
4  implicit none
5  common /block/ c
6  character(len=12) :: c
7
8  if (c .ne. "Hello World") call abort
9end subroutine
10
11subroutine test2
12  implicit none
13  common /block/ a
14  character(len=6), dimension(2) :: a
15
16  if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort
17end subroutine
18
19program strcommon_1
20  implicit none
21  common /block/ s, t
22  character(len=6) :: s, t
23  s = "Hello "
24  t = "World "
25  call test1
26  call test2
27end program
28
29