view gcc/testsuite/gfortran.dg/analyzer/deferred_character_25.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! { dg-additional-options "-Wno-analyzer-too-complex" }

! Copy of gfortran.dg/deferred_character_25.f90
! as a regression test for ICE with -fanalyzer (PR analyzer/93774)

PROGRAM TEST
  IMPLICIT NONE
  INTEGER, PARAMETER :: I = 3
  character (len = i), parameter :: str(5) = ['abc','cde','fgh','ijk','lmn']

  TYPE T
    CHARACTER(LEN=:), ALLOCATABLE :: C(:)
  END TYPE T
  TYPE(T), TARGET :: S
  CHARACTER (LEN=I), POINTER :: P(:)

  ALLOCATE ( CHARACTER(LEN=I) :: S%C(5) )
  s%c = str

! This PR uncovered several problems associated with determining the
! element length and indexing. Test fairly thoroughly!
  if (SIZE(S%C, 1) .ne. 5) stop 1
  if (LEN(S%C) .ne. 3) stop 2
  if (any (s%c .ne. str)) stop 3
  if (s%c(3) .ne. str(3)) stop 4
  P => S%C
  if (SIZE(p, 1) .ne. 5) stop 5
  if (LEN(p) .ne. 3) stop 6
  if (any (p .ne. str)) stop 7
  if (p(5) .ne. str(5)) stop 8
END PROGRAM TEST