[Ad-dev] [openAD] #224: open64 does not distinguish 1st and 2nd nesting level of SRs

[OpenAD]

#224: open64 does not distinguish 1st and 2nd nesting level of SRs
------------------------------+---------------------------------------------
 Reporter:  utke              |       Owner:  utke    
     Type:  defect            |      Status:  accepted
 Priority:  major             |   Milestone:          
Component:  Open64 front end  |    Keywords:          
------------------------------+---------------------------------------------

Comment(by utke):

 There are various parts to this problem.  In whirl it appears that at
 least:
 1.  the flag in the pu_table that indicates foo has a nested routine is
 not set; should be:
 <pre>
        (2 (ty ".proc." 29 1) 3 0 (flg "PU_F90_LANG") 0 (flg
 "PU_NEED_UNPARSED,PU_UPLEVEL,PU_IS_NESTED_FUNC,PU_IS_INLINE_FUNCTION"))
 </pre>
 but is only
 <pre>
       (2 (ty ".proc." 29 1) 3 0 (flg "PU_F90_LANG") 0 (flg
 "PU_NEED_UNPARSED,PU_IS_NESTED_FUNC,PU_IS_INLINE_FUNCTION"))
 </pre>

 2. The whirl nodes are out of order, i.e. bar is listed before foo. If we
 switch it and adjust the flags the output is almost correct except that
 foo & bar are closed with only one END statetement which is likely a
 problem specific to whirl2f and has nothing to do with the whirl
 representation.

-- 
Ticket URL: <https://trac.mcs.anl.gov/projects/openAD/ticket/224#comment:2>
OpenAD <http://www.mcs.anl.gov/openad>
Bug tracking for OpenAD components