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