Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/allocate_with_source_17.f03 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
23 23
24 contains 24 contains
25 subroutine check 25 subroutine check
26 select type (z => a%x) 26 select type (z => a%x)
27 type is (real(8)) 27 type is (real(8))
28 if (any (z .ne. r)) call abort 28 if (any (z .ne. r)) STOP 1
29 type is (character(kind = 1, len = *)) 29 type is (character(kind = 1, len = *))
30 if (any(z .ne. chr1)) call abort 30 if (any(z .ne. chr1)) STOP 2
31 type is (character(kind = 4, len = *)) 31 type is (character(kind = 4, len = *))
32 if (any(z .ne. chr4)) call abort 32 if (any(z .ne. chr4)) STOP 3
33 end select 33 end select
34 deallocate (a%x) 34 deallocate (a%x)
35 end subroutine 35 end subroutine
36 end program 36 end program