comparison gcc/testsuite/gfortran.dg/dtio_27.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
49 subroutine test_type 49 subroutine test_type
50 type(t) :: x 50 type(t) :: x
51 namelist /n1/ x 51 namelist /n1/ x
52 x = t('a') 52 x = t('a')
53 write (buffer, n1) 53 write (buffer, n1)
54 if (buffer(2) /= " X=a") call abort() 54 if (buffer(2) /= " X=a") STOP 1
55 end subroutine 55 end subroutine
56 56
57 subroutine test_class 57 subroutine test_class
58 class(t), allocatable :: y 58 class(t), allocatable :: y
59 namelist /n2/ y 59 namelist /n2/ y
60 y = t('b') 60 y = t('b')
61 write (buffer, n2) 61 write (buffer, n2)
62 if (buffer(2) /= " Y=b") call abort() 62 if (buffer(2) /= " Y=b") STOP 2
63 end subroutine 63 end subroutine
64 64
65 END 65 END