File: error_stop_with_no_code.F90

package info (click to toggle)
fortran-caffeine 0.7.0-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 904 kB
  • sloc: f90: 6,336; ansic: 4,304; sh: 433; makefile: 29
file content (16 lines) | stat: -rw-r--r-- 500 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
program error_stop_with_no_code
  use iso_c_binding, only: c_bool
  use prif, only : &
     prif_init &
    ,prif_stop &
    ,prif_error_stop
  implicit none

  integer init_exit_code
  logical(kind=c_bool), parameter :: true = .true._c_bool

  call prif_init(init_exit_code)
  call prif_error_stop(quiet=true) ! a prif_error_stop unit test passes if this line correctly executes error termination
  call prif_stop(quiet=true) ! a prif_error_stop unit test fails if this line runs
     
end program