robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.dg/g77/20010610.f

6 lines
105 B
Fortran
Raw Permalink Blame History

c { dg-do run }
DO I = 0, 255
IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
ENDDO
END
Reference in New Issue View Git Blame Copy Permalink