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