#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