program cpp_tao_interface_test

use tao_cpp_test_mod

logical ok, all_ok

!

all_ok = .true.
call test1_f_qp_rect(ok); if (.not. ok) all_ok = .false.
call test1_f_qp_line(ok); if (.not. ok) all_ok = .false.
call test1_f_qp_symbol(ok); if (.not. ok) all_ok = .false.
call test1_f_qp_point(ok); if (.not. ok) all_ok = .false.
call test1_f_qp_axis(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_cmd_history(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_real_pointer(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_logical_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_integer_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_expression_info(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_eval_stack1(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_ele_shape(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_pattern_point(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_pattern_curve(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_shape_pattern(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_drawing(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_wave_kick_pt(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_wave(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_title(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_data_var_component(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_histogram(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_curve(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_graph(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_plot(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_plot_region(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_plot_page(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_plot_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_graph_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_curve_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_data(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_d1_data(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_d2_data(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_data_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_d1_data_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_d2_data_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_var_slave(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_var(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_v1_var(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_var_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_v1_var_array(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_building_wall_point(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_building_wall_section(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_building_wall(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_global(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_alias(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_command_file(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_common(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_lat_mode(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_sigma_mat(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_lattice_branch(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_lattice(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_element(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_ping_scale(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_universe_branch(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_beam(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_universe_calc(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_mpi(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_dynamic_aperture(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_universe(ok); if (.not. ok) all_ok = .false.
call test1_f_tao_super_universe(ok); if (.not. ok) all_ok = .false.

print *
if (all_ok) then
  print *, 'Bottom Line: Everything OK!'
else
  print *, 'BOTTOM LINE: PROBLEMS FOUND!'
endif

end program