fm901.exp

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

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

         TEST DATE*TIME= *NO DATE*TIME      -  COMPILER= *NONE SPECIFIED*    
 
  AFMTF - (023) FORMATTED DATA TRANSFER

  USING A-CONVERSION WITH SUBSTRINGS

  REFS - 12.9.5.2  13.3  13.5.11
 
 
  TEST   PASS/FAIL       DISPLAYED RESULTS       REMARKS
 -------------------------------------------------------------------------------
                                                 THIS PROGRAM HAS   4 TESTS

     1    INSPECT                                2 SETS OF 2 COMPUTED LINES     
                                                 EXPECTED                       
                 COMPUTED= 
                          ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890
                          ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890

                           =+-*/(),.$':
                           =+-*/(),.$':
                 CORRECT:                        CORRESPONDING LINE(S) MUST MATCH
                          ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890
                           =+-*/(),.$':
     2    INSPECT
                 COMPUTED= 
                          ONE THREE FIVE SEVEN NINE ELEVEN
                 CORRECT=  
                          ONE THREE FIVE SEVEN NINE ELEVEN
     3    INSPECT
                 COMPUTED= 
                          AROUND THE WORLD IN 80 DAYS  
                 CORRECT=  
                          AROUND THE WORLD IN 80 DAYS  
     4    INSPECT
                 COMPUTED= 
                          TO BE OR NOT TO BE  
                 CORRECT=  
                          TO BE OR NOT TO BE  
 
 -------------------------------------------------------------------------------
 
                          0 TESTS PASSED
                          0 TESTS FAILED
                          0 TESTS DELETED
                          4 TESTS REQUIRE INSPECTION
                          4 OF   4 TESTS EXECUTED
 
 *FM901END*              END OF TEST - FM901

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