Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/deferred_character_assignment_1.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900 (2018-10-25)
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
8 character(:), allocatable :: z 8 character(:), allocatable :: z
9 integer :: length 9 integer :: length
10 z = "cockatoo" 10 z = "cockatoo"
11 length = len (z) 11 length = len (z)
12 z(:) = '' 12 z(:) = ''
13 if (len(z) .ne. length) call abort 13 if (len(z) .ne. length) STOP 1
14 if (trim (z) .ne. '') call abort 14 if (trim (z) .ne. '') STOP 2
15 z(:3) = "foo" 15 z(:3) = "foo"
16 if (len(z) .ne. length) call abort 16 if (len(z) .ne. length) STOP 3
17 if (trim (z) .ne. "foo") call abort 17 if (trim (z) .ne. "foo") STOP 4
18 z(4:) = "__bar" 18 z(4:) = "__bar"
19 if (len(z) .ne. length) call abort 19 if (len(z) .ne. length) STOP 5
20 if (trim (z) .ne. "foo__bar") call abort 20 if (trim (z) .ne. "foo__bar") STOP 6
21 deallocate (z) 21 deallocate (z)
22 end 22 end