Coverage Report: FatalError.f90

Generated from GCOV analysis of Fortran source code

100.0%
Lines Executed
11 total lines
0.0%
Branches Executed
0 total branches
100.0%
Calls Executed
15 total calls
0
-
Source:FatalError.f90
0
-
Graph:FatalError.gcno
0
-
Data:FatalError.gcda
0
-
Runs:29
1
-
!! Provides error message subroutine
2
-
3
-
MODULE FatalError
4
-
!! Provides `ERROUT` error message
5
-
6
-
IMPLICIT NONE
7
-
PUBLIC
8
-
9
-
INTEGER, PRIVATE :: PRTFile = 6
10
-
11
-
CONTAINS
12
-
13
15
SUBROUTINE ERROUT( WHERE, ErrMsg )
14
-
!! Outputs error message and terminates program
15
-
16
-
! Arguments
17
-
CHARACTER (LEN=*), INTENT( IN ) :: WHERE
18
-
!! Program or subroutine the error is being called from
19
-
CHARACTER (LEN=*), INTENT( IN ) :: ErrMsg
20
-
!! The error message itself
21
-
22
-
INTEGER :: Last
23
-
24
15
WRITE( PRTFile, * )
25
15
WRITE( PRTFile, * ) '*** FATAL ERROR ***'
26
-
27
15
Last = LEN( WHERE )
28
15
WRITE( PRTFile, * ) 'Generated by program or subroutine: ', WHERE( 1 : Last )
29
-
30
15
Last = LEN( ErrMsg )
31
15
WRITE( PRTFile, * ) ErrMsg( 1 : Last )
32
15
WRITE( PRTFile, * )
33
15
CLOSE( PRTFile )
34
-
35
-
! Intel Fortran can't handle the following
36
-
! ERROR STOP 'Fatal Error in ' // WHERE( 1 : Last1 ) // ': ' // ErrMsg( 1 : Last2 )
37
15
ERROR STOP 'Fatal Error: Check the print file for details'
38
-
39
15
END SUBROUTINE ERROUT
40
-
41
-
END MODULE FatalError

Legend:

Execution Count: Number of times each line was executed. ##### indicates never executed, - indicates non-executable.