Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/logical_1.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-std=legacy" } ! ! PR middle-end/19543 program logical_1 implicit none logical(1), parameter :: t1 = .TRUE., f1 = .FALSE. logical(2), parameter :: t2 = .TRUE., f2 = .FALSE. logical(4), parameter :: t4 = .TRUE., f4 = .FALSE. logical(8), parameter :: t8 = .TRUE., f8 = .FALSE. character*2 :: t(4), f(4) write(t(1),*) t1 write(f(1),*) f1 write(t(2),*) t2 write(f(2),*) f2 write(t(3),*) t4 write(f(3),*) f4 write(t(4),*) t8 write(f(4),*) f8 if (any(t .ne. " T")) STOP 1 if (any(f .ne. " F")) STOP 2 end