Transformation report

[clementval]

Would be nice to have the ability to generate a report of the transformation in a similar way than compilers can generate an optimization report.

Would need a new option in the driver:
-r, --report

Example of Cray report:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
                          S u m m a r y   R e p o r t
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Compilation
-----------
File     : /ptmp/jburroughs/arc2d.f
Compiled : 05/28/03  09:40:17
Compiler : Version 5.0.0.0.8
Command  : /opt/ctl/cftn/cftn/bin/ftn_driver.exe -rm -sdefault64 -dp -c arc2d.f
           -I/opt/ctl/craylibs/craylibs/include -I/opt/ctl/mpt/mpt/include
           -I/opt/ctl/craytools/craytools/cpat/include -I/opt/ctl/include_0.0
           -L/opt/ctl/craylibs/craylibs -L/opt/ctl/lib_0.0
           -L/opt/ctl/craylibsci/craylibsci
Program
  Units  : ARC2D
          BC
          INPUT
          INITIA
          .
          .
          .
          CPUTIM
          ELAPSE

ftnlx report
------------
Source   : /ptmp/jburroughs/arc2d.f
Date     : 05/28/2003  09:41:36


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
                          S o u r c e   L i s t i n g
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


     %%%    L o o p m a r k   L e g e n d    %%%

     Primary Loop Type        Modifiers
     ------- ---- ----        ---------
     A  - Pattern matched     b - blocked
     C  - Collapsed           f - fused
     D  - Deleted             i - interchanged
     E  - Cloned              m - streamed but not partitioned
     I  - Inlined             p - conditional, partial and/or computed
     M  - Multistreamed       r - unrolled
     P  - Parallel/Tasked     s - shortloop
     V  - Vectorized          t - array syntax temp used
     W  - Unwound             w - unwound


    1.                   cft77opt -dp
  .
  .
  .
  282.                         CALL ELAPSE(T2)
  283.                   
  284.                   C  INPUT DATA
  285.                   C
  286.  I-------------<>        CALL INPUT(MAXJ,MAXJK)
  287.                   C
  .
  .
  .
  313.                            IEND   = NSTEPS
  314.  1--------------<          DO 10 NUMITE  = ISTART,IEND
  315.  1                
  316.  1                         CALL INTEGR(JDIMEN,KDIMEN,Q,S,PRESS,SNDSP,SLOPE,
  317.  1                     >                 X,Y,XY,XYJ,XIT,ETT,DS,DELTQN,
  318.  1                     >                 UU,VV,CCX,CCY,COEF2X,COEF2Y,COEF4X,COEF4Y)
  319.  1                
  320.  1                C
  321.  1                C  COMPUTE CPUSEC
  322.  1                C
  323.  1                C        CPUSEC = CPUTIM(DUMMY) - CPUSC0
  324.  1                         CALL CPUTIM(CPUSEC)
  325.  1                         CPUSEC = CPUSEC - CPUSC0
  326.  1                C
  327.  1                C*********************************************************************
  328.  1                C***  RESIDUAL, SS PTS,                                            ***
  329.  1                C*********************************************************************
  330.  1                      IP = 5
  331.  1                         IF( MOD( NUMITE  - ISTART + 1, IPRINT) .EQ. 0 )
  332.  1                     * CALL IOALL(IP,JDIMEN,KDIMEN,Q,PRESS,SNDSP,XY,XYJ,X,Y)
  333.  1                C*********************************************************************
  334.  1                C***            WRITE OUT RHO, U, V, E, P, CP, MACH, X, Y          ***
  335.  1                C***                     ONTO TAPE6 EVERY NP ITERATIONS            ***
  336.  1                C*********************************************************************
  337.  1                      IP = 15
  338.  1                         IF ( MOD( NUMITE  - ISTART + 1, NP) .EQ. 0 )
  339.  1                     * CALL IOALL(IP,JDIMEN,KDIMEN,Q,PRESS,SNDSP,XY,XYJ,X,Y)
  340.  1                C
  341.  1                C*********************************************************************
  342.  1--------------> 10       CONTINUE