array_constructor_18.f90

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

! { dg-do compile }
! Tests the fix for PR32875, in which the character length for the
! array constructor would get lost in simplification and would lead
! the error 'Not Implemented: complex character array constructor'.
!
! Contributed by Joost VandeVondele <[e-mail]>
!
  call foo ((/(S1(i),i=1,3,-1)/))
CONTAINS
  FUNCTION S1(i)
    CHARACTER(LEN=1) :: S1
    INTEGER :: I
    S1="123456789"(i:i)
  END FUNCTION S1
  subroutine foo (chr)
    character(1) :: chr(:)
    print *, chr
  end subroutine
END