GCC Code Coverage Report

Directory:	./
File:	rad/abor1.f90
Date:	2022-01-11 19:19:34

	Exec	Total	Coverage
Lines:	0	3	0.0%
Branches:	0	0	-%

  
      Line
      Branch
      Exec
      Source
    
      ✗
      SUBROUTINE ABOR1(CDTEXT)
    
      IMPLICIT NONE
    
      CHARACTER(LEN=*), INTENT(IN) :: CDTEXT
    
      ✗
      print*,'ABOR1 CALLED',CDTEXT
    
      ✗
      return
    
      end

Line	Exec	Source
1	✗	SUBROUTINE ABOR1(CDTEXT)
2
3		IMPLICIT NONE
4
5		CHARACTER(LEN=*), INTENT(IN) :: CDTEXT
6
7	✗	print*,'ABOR1 CALLED',CDTEXT
8
9	✗	return
10		end
11