Commit c6a99818 authored by Ondrej Vysocky's avatar Ondrej Vysocky
Browse files

FIX fixed fortran test #11 #33

parent 2c12dec3
! Fortran version of test.cpp
! Fortran version of test.cpp
program fort_test
use meric
! #include "meric.inc"
#include "readex.inc"
call MERIC_Init()
! call MERIC_Init()
READEX_INIT()
call MERIC_MeasureStart("A"//char(0))
READEX_REGION_DEFINE(A)
READEX_REGION_DEFINE(B)
READEX_REGION_DEFINE(C)
call MERIC_MeasureStart("B"//char(0))
call sleep(1)
call MERIC_MeasureStop()
! call MERIC_MeasureStart("A")
READEX_REGION_START(A, "A", SCOREP_USER_REGION_TYPE_COMMON)
call MERIC_MeasureStart("C"//char(0))
call sleep(1)
call MERIC_MeasureStop()
! call MERIC_MeasureStart("B")
READEX_REGION_START(B, "B", SCOREP_USER_REGION_TYPE_COMMON)
call sleep(1)
! call MERIC_MeasureStop()
READEX_REGION_STOP(B)
call MERIC_MeasureStart("B"//char(0))
call sleep(2)
call MERIC_MeasureStop()
! call MERIC_MeasureStart("C")
READEX_REGION_START(C, "C", SCOREP_USER_REGION_TYPE_COMMON)
call sleep(1)
! call MERIC_MeasureStop()
READEX_REGION_STOP(C)
call MERIC_MeasureStop()
! call MERIC_MeasureStart("B")
READEX_REGION_START(B, "B", SCOREP_USER_REGION_TYPE_COMMON)
call sleep(2)
! call MERIC_MeasureStop()
READEX_REGION_STOP(B)
! call MERIC_MeasureStop()
READEX_REGION_STOP(A)
! call MERIC_Close()
READEX_CLOSE()
call MERIC_Close()
end program fort_test
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment