Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/deferred_character_25.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900 (2020-02-13)
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do run }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 !
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 ! Test the fix for PR70752 in which the type of the component 'c' is cast
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 ! as character[1:0], which makes it slightly more difficult than usual to
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 ! obtain the element length. This is one and the same bug as PR72709.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 !
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 ! Contributed by Gilbert Scott <gilbert.scott@easynet.co.uk>
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 !
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 PROGRAM TEST
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 IMPLICIT NONE
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 INTEGER, PARAMETER :: I = 3
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 character (len = i), parameter :: str(5) = ['abc','cde','fgh','ijk','lmn']
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 TYPE T
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 CHARACTER(LEN=:), ALLOCATABLE :: C(:)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 END TYPE T
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 TYPE(T), TARGET :: S
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 CHARACTER (LEN=I), POINTER :: P(:)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 ALLOCATE ( CHARACTER(LEN=I) :: S%C(5) )
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 s%c = str
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 ! This PR uncovered several problems associated with determining the
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 ! element length and indexing. Test fairly thoroughly!
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 if (SIZE(S%C, 1) .ne. 5) stop 1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 if (LEN(S%C) .ne. 3) stop 2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 if (any (s%c .ne. str)) stop 3
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 if (s%c(3) .ne. str(3)) stop 4
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 P => S%C
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 if (SIZE(p, 1) .ne. 5) stop 5
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 if (LEN(p) .ne. 3) stop 6
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32 if (any (p .ne. str)) stop 7
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
33 if (p(5) .ne. str(5)) stop 8
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
34 END PROGRAM TEST