projects / platform / upstream / gcc48.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / g77 / 20010610.f
1 c { dg-do run }
2       DO I = 0, 255
3          IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
4       ENDDO
5       END
Domain: System / Uncategorized;