File: libtest.f90

package info (click to toggle)
xraylib 4.0.0%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 46,936 kB
  • sloc: ansic: 16,103; f90: 8,746; java: 6,766; python: 1,497; cpp: 1,305; pascal: 1,139; makefile: 809; ruby: 622; php: 594; perl: 573; cs: 193; sh: 125
file content (22 lines) | stat: -rw-r--r-- 638 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
MODULE libtest

INTERFACE
        SUBROUTINE test_exit(exit_status) BIND(C, NAME='exit')
                USE, INTRINSIC :: ISO_C_BINDING
                IMPLICIT NONE
                INTEGER (C_INT), INTENT(IN), VALUE :: exit_status
        ENDSUBROUTINE test_exit
ENDINTERFACE

CONTAINS

SUBROUTINE ASSERT(condition)
        USE, INTRINSIC :: ISO_FORTRAN_ENV
        IMPLICIT NONE
        LOGICAL, INTENT(IN) :: condition
        INTEGER, SAVE :: counter = 1
        WRITE(output_unit, '(A, I5)') 'assert call ', counter
        counter = counter + 1
        IF (.NOT. condition) CALL test_exit(1)
ENDSUBROUTINE ASSERT
ENDMODULE libtest