gcc/testsuite/gfortran.fortran-torture/execute/pr19269-1.f90

   1 program main
   2   call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))
   3 contains
   4   subroutine test (a)
   5     character (len = *), dimension (:, :) :: a
   6
   7     if (size (a, 1) .ne. 2) STOP 1
   8     if (size (a, 2) .ne. 2) STOP 2
   9     if (len (a) .ne. 1) STOP 3
  10
  11     if (a (1, 1) .ne. 'a') STOP 4
  12     if (a (2, 1) .ne. 'b') STOP 5
  13     if (a (1, 2) .ne. 'c') STOP 6
  14     if (a (2, 2) .ne. 'd') STOP 7
  15   end subroutine test
  16 end program main