<?xml version="1.0" encoding="ISO-8859-1"?>
<AFortran xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="AFortran" xmlns:_1="GAspect" location="2:2-14:3" name="demo_do">
  <domain location="2:2-2:17" name="FORTRAN"/>
  <pointcut location="6:4-6:71" name="loop_timer">
    <pctexpr xsi:type="_1:LoopExpr" location="6:28-6:70">
      <loopStmt xsi:type="DoLoop" location="6:38-6:69">
        <loopInitCondition xsi:type="_1:IntegerLoopInitCondition" location="6:41-6:47" condition="1"/>
        <loopExitCondition xsi:type="_1:IntegerLoopExitCondition" location="6:48-6:59" condition="10"/>
        <loopStrideCondition xsi:type="_1:StringLoopStrideCondition" location="6:60-6:68" condition="*"/>
      </loopStmt>
    </pctexpr>
  </pointcut>
  <advice xsi:type="_1:BeforeAdvice" location="8:4-10:5" pctname="//@pointcut.0">
    <advStmt xsi:type="_1:OpaqueStatement" location="9:8-9:29" stmt="CALL START_TIMER;"/>
  </advice>
  <advice xsi:type="_1:AfterAdvice" location="11:4-13:5" pctname="//@pointcut.0">
    <advStmt xsi:type="_1:OpaqueStatement" location="12:8-12:28" stmt="CALL STOP_TIMER;"/>
  </advice>
</AFortran>

