fm500.exp

来自「开放源码的编译器open watcom 1.6.0版的源代码」· EXP 代码 · 共 86 行

1
                     NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY
                    FORTRAN COMPILER VALIDATION SYSTEM
                      VERSION 2.1  93/10/21*21.02.00
 
 *FM500BEGIN*            TEST RESULTS - FM500

         TEST DATE*TIME= *NO DATE*TIME      -  COMPILER= *NONE SPECIFIED*    

 BLKD1 - (260) BLOCK DATA SUBPROGRAMS --
  IMPLICIT, PARAMETER, EXTERNAL, SAVE

  ANS REF. - 16
 
 
  TEST   PASS/FAIL       DISPLAYED RESULTS       REMARKS
 -------------------------------------------------------------------------------
                                                 THIS PROGRAM HAS  37 TESTS


                                                 ALL VISUAL ANSWERS SHOULD BE
                                                 ZERO FOR TEST SEGMENT TO BE
                                                 SUCCESSFUL
     1     PASS  
     2     PASS  
     3     PASS  
     4     PASS  
     5     PASS  
     6    INSPECT
                               0
                               0
     7     PASS  
     8     PASS  
     9     PASS  
 
    11    INSPECT
                              0.00
                              0.00
    12    INSPECT
                              0.00
                              0.00
    13     PASS  
    14     PASS  
    15     PASS  
    16     PASS  
    17     PASS  
    18    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    19    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    20    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    21    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    22    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    23    INSPECT
                           (   0.00,    0.00)    SHOULD BE ZERO
    24     PASS  
    25     PASS  
    26     PASS  
    27     PASS  
    28     PASS  
    29     PASS  
    30     PASS  
    31     PASS  
    32     PASS  
    33     PASS  
    34     PASS  
    35     PASS  
    36     PASS  
    37     PASS  
 
 -------------------------------------------------------------------------------
 
                         28 TESTS PASSED
                          0 TESTS FAILED
                          0 TESTS DELETED
                          9 TESTS REQUIRE INSPECTION
                         37 OF  37 TESTS EXECUTED
 
 *FM500END*              END OF TEST - FM500

 *NO PROJECT*              *NO COMPANY NAME*      *   *NO TAPE* /*NO TAPE DATE
 FOR OFFICIAL USE ONLY                                        COPYRIGHT  1982