What steps will reproduce the problem?
1. when the program or subroutine's definition has more than ONE spaces between
PROGRAM and programname, such as:
---------------
c Note more than one spaces between PROGRAM and myprogram here
PROGRAM myprogram
---------------
tree of myprogram will NOT be generated. However, if the code reads:
---------------
c Note only one spaces between PROGRAM and myprogram here
PROGRAM myprogram
---------------
2.
3.
What is the expected output? What do you see instead?
I expect to have trees generated for program, but turns out tree is empty.
What version of the product are you using? On what operating system?
1.12
Please provide any additional information below.
Here is how to fix it: (simply change \s to \s+ in the following lines (as
shown below)
if ($sline=~ m/(\bsubroutine\b)\s+\w/i || #Wen Long changed \s to \s+
$sline=~ m/(\bprogram\b)\s+\w/i || #Wen Long changed \s to \s+
($sline=~ m/(\bmodule\b)\s+\w/i && #Wen Long changed \s to \s+
!($sline=~ m/module\s+procedure\b/i)) || #Wen Long changed \s to \s+
$sline=~ m/(\binterface\b)\s+\w/i || #Wen Long changed \s to \s+
$sline=~ m/(\bfunction\b)\s+\w/i ){ #Wen Long changed \s to \s+
Cheers,
Wen
Original issue reported on code.google.com by wlongu...@gmail.com on 2 Jan 2012 at 3:26
Original issue reported on code.google.com by
wlongu...@gmail.com
on 2 Jan 2012 at 3:26Attachments: