| blib/lib/CallGraph/Lang/Fortran.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 53 | 1 | 56 | if (/^ .*?FUNCTION\s*(\w+)/) |
| 64 | 0 | 57 | if /^[C*]/ |
| 65 | 27 | 30 | if ($state == 0) { } |
| 30 | 0 | elsif ($state == 1) { } | |
| 66 | 13 | 14 | if (/^ *(SUBROUTINE|.*FUNCTION|PROGRAM)\s*(\w+)/) |
| 69 | 2 | 11 | if ($type eq 'PROGRAM') |
| 75 | 13 | 17 | if (/^\s+END\s*$/) |
| 79 | 15 | 2 | if (/CALL (\w+)/i) |