pr19269-1.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

program main
  call test (reshape ((/ 'a', 'b', 'c', 'd' /), (/ 2, 2 /)))
contains
  subroutine test (a)
    character (len = *), dimension (:, :) :: a

    if (size (a, 1) .ne. 2) call abort
    if (size (a, 2) .ne. 2) call abort
    if (len (a) .ne. 1) call abort

    if (a (1, 1) .ne. 'a') call abort
    if (a (2, 1) .ne. 'b') call abort
    if (a (1, 2) .ne. 'c') call abort
    if (a (2, 2) .ne. 'd') call abort
  end subroutine test
end program main