Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/deferred_character_assignment_1.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
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 |