text: !
  ! This file is released under terms of BSD license
  ! See LICENSE file for more information
  !
  
  program test
    integer :: i
    logical :: ldo
  
    ldo = .true.
  
    !$claw loop-fusion group(g1) constraint(none)
    do i = 1, 10
      print*,'Loop body #1'
    end do
  
    if ( ldo ) then
      print*,'I did'
    end if
  
    !$claw loop-fusion group(g1) constraint(none)
    do i = 1, 10
      print*,'Loop body #2'
    end do
  
  end program test
  