! Runs the Fortran OpenMP Primitive Example
!
! author:  L. Nguyen
! version: $Id: test_openmp.mm,v 1.1 2012/06/29 17:42:56 lsn Exp $
!
startmacro L:iter[10]

timer set
do i 1 iter 1
  openmp_example
enddo

timer elapse
endmacro
