Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/char_result_15.f90 @ 131:84e7813d76e9
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 |
---|---|
35 PROGRAM WheresThatbLinkingConstantGone | 35 PROGRAM WheresThatbLinkingConstantGone |
36 USE Fruits | 36 USE Fruits |
37 IMPLICIT NONE | 37 IMPLICIT NONE |
38 integer :: i | 38 integer :: i |
39 write (buffer, '(i2,a)') len (Get (1)), Get (1) | 39 write (buffer, '(i2,a)') len (Get (1)), Get (1) |
40 if (trim (buffer) .ne. " 5Apple") call abort | 40 if (trim (buffer) .ne. " 5Apple") STOP 1 |
41 call fruity(3) | 41 call fruity(3) |
42 if (trim (buffer) .ne. " 5Mango") call abort | 42 if (trim (buffer) .ne. " 5Mango") STOP 2 |
43 if (trim (names(3)) .ne. "Mangue") Call abort | 43 if (trim (names(3)) .ne. "Mangue") STOP 3 |
44 END PROGRAM WheresThatbLinkingConstantGone | 44 END PROGRAM WheresThatbLinkingConstantGone |