RegressionSourceProcessing

changeset 72:f16dd5dbfb70

still not hoisted but at least reflect the changes since the files are already there
author m_utkej@utke2.site
date Fri Dec 04 17:28:44 2009 -0600 (2009-12-04)
parents ac8fde669374
children c27aeef14bcb
files Reference/hoistFuncCall.free.pre.f90 Reference/hoistFuncCall.free.pre.post.f90 Reference/versionInfo.txt
line diff
     1.1 --- a/Reference/hoistFuncCall.free.pre.f90	Fri Dec 04 17:28:18 2009 -0600
     1.2 +++ b/Reference/hoistFuncCall.free.pre.f90	Fri Dec 04 17:28:44 2009 -0600
     1.3 @@ -1,4 +1,7 @@
     1.4 +module OAD_intrinsics
     1.5 +end module
     1.6      program functionComment
     1.7 +use OAD_intrinsics
     1.8        real :: x
     1.9  
    1.10        x = 1.5D0
    1.11 @@ -6,15 +9,16 @@
    1.12      end program functionComment
    1.13  
    1.14      function f(x)
    1.15 +use OAD_intrinsics
    1.16        real :: x,f
    1.17  
    1.18        f = 5
    1.19      end function f
    1.20  
    1.21      subroutine oad_s_f(x,f)
    1.22 +use OAD_intrinsics
    1.23        real,intent(out) :: f
    1.24        real :: x
    1.25  
    1.26        f = 5
    1.27      end subroutine oad_s_f
    1.28 -
     2.1 --- a/Reference/hoistFuncCall.free.pre.post.f90	Fri Dec 04 17:28:18 2009 -0600
     2.2 +++ b/Reference/hoistFuncCall.free.pre.post.f90	Fri Dec 04 17:28:44 2009 -0600
     2.3 @@ -1,4 +1,8 @@
     2.4 +module OAD_intrinsics
     2.5 +end module
     2.6      program functionComment
     2.7 +use OAD_intrinsics
     2.8 +    use OAD_active
     2.9        real :: x
    2.10  
    2.11        x = 1.5D0
    2.12 @@ -6,15 +10,18 @@
    2.13      end program functionComment
    2.14  
    2.15      function f(x)
    2.16 +use OAD_intrinsics
    2.17 +    use OAD_active
    2.18        real :: x,f
    2.19  
    2.20        f = 5
    2.21      end function f
    2.22  
    2.23      subroutine oad_s_f(x,f)
    2.24 +use OAD_intrinsics
    2.25 +    use OAD_active
    2.26        real,intent(out) :: f
    2.27        real :: x
    2.28  
    2.29        f = 5
    2.30      end subroutine oad_s_f
    2.31 -
     3.1 --- a/Reference/versionInfo.txt	Fri Dec 04 17:28:18 2009 -0600
     3.2 +++ b/Reference/versionInfo.txt	Fri Dec 04 17:28:44 2009 -0600
     3.3 @@ -1,11 +1,11 @@
     3.4  OpenAD                                         hg:269:0a6c115c3825
     3.5 -Open64                                         svn:872
     3.6 -OpenADFortTk                                   hg:1127+:c4cfb55f4ded+
     3.7 -OpenAnalysis                                   hg:25+:7a9899d3b1b6+
     3.8 +Open64                                         svn:874
     3.9 +OpenADFortTk                                   hg:1128+:2e955d582e70+
    3.10 +OpenAnalysis                                   hg:25:7a9899d3b1b6
    3.11  xercesc                                        svn:45
    3.12  xaifBooster                                    hg:1101:ae6264f2ccad
    3.13  xaif                                           hg:217:a52cc5ab9afa
    3.14  angel                                          hg:154:08f720d14859
    3.15  boost/boost                                    svn:51018
    3.16  RevolveF9X                                     hg:3:32019b4179be
    3.17 -OpenADFortTk/tools/SourceProcessing            hg:538+:b8ed1c1ef2f8+
    3.18 +OpenADFortTk/tools/SourceProcessing            hg:546:33a001c70b43