intrinsic_len.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 32 行

! Program to test the LEN intrinsic
program test
  character(len=10) a
  character(len=8) w
  type person
    character(len=10) name
    integer age
  end type person
  type(person) Tom
  integer n
  a = w (n)

  if ((a .ne. "01234567") .or. (n .ne. 8)) call abort
  if (len(Tom%name) .ne. 10) call abort
  call array_test()
end

function w(i)
  character(len=8) w
  integer i
  w = "01234567"
  i = len(w)
end

! This is the testcase from PR 15211 converted to a subroutine
subroutine array_test
   implicit none
   character(len=10) a(4)
   if (len(a) .NE. 10) call abort()
end subroutine array_test