./FM097.FOR.x
1
           FORTRAN COMPILER VALIDATION SYSTEM


                      VERSION 2.1

           FOR OFFICIAL USE ONLY - COPYRIGHT 1978

                   SUBSET LEVEL TEST


      TEST     PASS/FAIL     COMPUTED        CORRECT
      ----------------------------------------------

       875       PASS
       876       PASS
       877       PASS
       878       PASS
       879       PASS
       880       PASS
       881       PASS
       882       PASS
       883       FAIL     0.00000E+00    0.40000E+01
       884       FAIL     0.00000E+00    0.27000E+00
       885       FAIL     0.00000E+00    0.25000E+02
       886       FAIL     0.00000E+00   -0.39000E+02
       887       PASS
       888       PASS
       889       PASS
       890       PASS
       891       PASS
       892       PASS
       893       PASS
       894       PASS
       895       PASS
       896       PASS
       897       PASS
       898       PASS
       899       PASS
       900       PASS
       901       PASS
       902       PASS
       903       PASS
       904       PASS
       905       PASS
       906       PASS

      ----------------------------------------------


                     END OF PROGRAM FM097

                    4 ERRORS ENCOUNTERED
                   28 TESTS PASSED
                    0 TESTS DELETED
Warning: ieee_invalid is signaling
Warning: ieee_denorm is signaling
Warning: ieee_underflow is signaling
Warning: ieee_inexact is signaling
FORTRAN STOP
===================== Relevant Source Code =======================
C                                                                       02780097
C     TEST 883 THROUGH 886 CONTAIN INTRINSIC FUNCTION TESTS FOR         02790097
C     REMAINDERING WHERE ARGUMENT AND FUNCTION ARE REAL                 02800097
C                                                                       02810097
      IVTNUM = 883                                                      02820097
C                                                                       02830097
C      ****  TEST 883  ****                                             02840097
C                                                                       02850097
      IF (ICZERO) 38830, 8830, 38830                                    02860097
 8830 CONTINUE                                                          02870097
      RVCOMP = AMOD (42.0,19.0)                                         02880097
      GO TO 48830                                                       02890097
38830 IVDELE = IVDELE + 1                                               02900097
      WRITE (I02,80003) IVTNUM                                          02910097
      IF (ICZERO) 48830, 8841, 48830                                    02920097
48830 IF (RVCOMP - 3.9995) 28830,18830,48831                            02930097
48831 IF (RVCOMP - 4.0005) 18830,18830,28830                            02940097
18830 IVPASS = IVPASS + 1                                               02950097
      WRITE (I02,80001) IVTNUM                                          02960097
      GO TO 8841                                                        02970097
28830 IVFAIL = IVFAIL + 1                                               02980097
      RVCORR = 4.0000                                                   02990097
      WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR                          03000097
 8841 CONTINUE                                                          03010097
      IVTNUM = 884                                                      03020097
C                                                                       03030097
C      ****  TEST 884  ****                                             03040097
C                                                                       03050097
      IF (ICZERO) 38840, 8840, 38840                                    03060097
 8840 CONTINUE                                                          03070097
      RVON01 = 16.27                                                    03080097
      RVON02 = 2.0                                                      03090097
      RVCOMP = AMOD (RVON01,RVON02)                                     03100097
      GO TO 48840                                                       03110097
38840 IVDELE = IVDELE + 1                                               03120097
      WRITE (I02,80003) IVTNUM                                          03130097
      IF (ICZERO) 48840, 8851, 48840                                    03140097
48840 IF (RVCOMP - .26995) 28840,18840,48841                            03150097
48841 IF (RVCOMP - .27005) 18840,18840,28840                            03160097
18840 IVPASS = IVPASS + 1                                               03170097
      WRITE (I02,80001) IVTNUM                                          03180097
      GO TO 8851                                                        03190097
28840 IVFAIL = IVFAIL + 1                                               03200097
      RVCORR = .27000                                                   03210097
      WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR                          03220097
 8851 CONTINUE                                                          03230097
      IVTNUM = 885                                                      03240097
C                                                                       03250097
C      ****  TEST 885  ****                                             03260097
C                                                                       03270097
      IF (ICZERO) 38850, 8850, 38850                                    03280097
 8850 CONTINUE                                                          03290097
      RVON01 = 225.0                                                    03300097
      RVON02 = 5.0E1                                                    03310097
      RVCOMP = AMOD (RVON01,RVON02)                                     03320097
      GO TO 48850                                                       03330097
38850 IVDELE = IVDELE + 1                                               03340097
      WRITE (I02,80003) IVTNUM                                          03350097
      IF (ICZERO) 48850, 8861, 48850                                    03360097
48850 IF (RVCOMP - 24.995) 28850,18850,48851                            03370097
48851 IF (RVCOMP - 25.005) 18850,18850,28850                            03380097
18850 IVPASS = IVPASS + 1                                               03390097
      WRITE (I02,80001) IVTNUM                                          03400097
      GO TO 8861                                                        03410097
28850 IVFAIL = IVFAIL + 1                                               03420097
      RVCORR = 25.000                                                   03430097
      WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR                          03440097
 8861 CONTINUE                                                          03450097
      IVTNUM = 886                                                      03460097
C                                                                       03470097
C      ****  TEST 886  ****                                             03480097
C                                                                       03490097
      IF (ICZERO) 38860, 8860, 38860                                    03500097
 8860 CONTINUE                                                          03510097
      RVON01 = -0.390E+2                                                03520097
      RVON02 = 5E2                                                      03530097
      RVCOMP = AMOD (RVON01,RVON02)                                     03540097
      GO TO 48860                                                       03550097
38860 IVDELE = IVDELE + 1                                               03560097
      WRITE (I02,80003) IVTNUM                                          03570097
      IF (ICZERO) 48860, 8871, 48860                                    03580097
48860 IF (RVCOMP + 39.005) 28860,18860,48861                            03590097
48861 IF (RVCOMP + 38.995) 18860,18860,28860                            03600097
18860 IVPASS = IVPASS + 1                                               03610097
      WRITE (I02,80001) IVTNUM                                          03620097
      GO TO 8871                                                        03630097
28860 IVFAIL = IVFAIL + 1                                               03640097
      RVCORR = -39.000                                                  03650097
      WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR                          03660097
 8871 CONTINUE                                                          03670097
C                                                                       03680097