Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/analyzer/deferred_character_25.f90 @ 152:2b5abeee2509
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