File: 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 (15 lines) | stat: -rw-r--r-- 455 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
program 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 :: false = .false._c_bool

  call prif_init(init_exit_code)
  call prif_stop(false) ! a prif_stop test passes if this line executes normal termination
  call prif_error_stop(quiet=false) ! a prif_stop test fails if this line runs
end program