Skip to content

Commit 10bb637

Browse files
committed
Explicit imports and increased record length in test_toml.f90
1 parent 380032e commit 10bb637

File tree

1 file changed

+15
-9
lines changed

1 file changed

+15
-9
lines changed

test/fpm_test/test_toml.f90

Lines changed: 15 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1,23 +1,29 @@
11
!> Define tests for the `fpm_toml` modules
22
module test_toml
33
use testsuite, only : new_unittest, unittest_t, error_t
4-
use fpm_toml
4+
use tomlf, only: toml_table, toml_load
5+
use fpm_toml, only: read_package_file, toml_array, toml_key, toml_stat, &
6+
get_value, set_value, get_list, new_table, add_table, add_array, len, &
7+
toml_error, toml_serialize, check_keys, set_list, set_string, &
8+
name_is_json
59
use tomlf_constants, only: tf_i8
6-
use fpm_git
10+
use fpm_git, only: git_target_t, git_target_revision, git_target_branch, &
11+
& git_target_tag
712
use fpm_dependency, only: dependency_node_t, destroy_dependency_node, dependency_tree_t, &
813
& new_dependency_node, new_dependency_tree, resize
914
use fpm_manifest_dependency, only: dependency_config_t, dependency_destroy
10-
use fpm_manifest_install
11-
use fpm_manifest_fortran
12-
use fpm_manifest_library
13-
use fpm_manifest_executable
14-
use fpm_manifest_preprocess
15-
use fpm_manifest_profile
15+
use fpm_manifest_install, only: install_config_t
16+
use fpm_manifest_fortran, only: fortran_config_t
17+
use fpm_manifest_library, only: library_config_t
18+
use fpm_manifest_executable, only: executable_config_t
19+
use fpm_manifest_preprocess, only: preprocess_config_t
20+
use fpm_manifest_profile, only: file_scope_flag
1621
use fpm_versioning, only: new_version
1722
use fpm_strings, only: string_t, operator(==), split
1823
use fpm_model, only: fortran_features_t, package_t, FPM_SCOPE_LIB, FPM_UNIT_MODULE, fpm_model_t, &
1924
& srcfile_t
2025
use fpm_compiler, only: archiver_t, compiler_t, id_gcc
26+
use fpm_error, only: fatal_error
2127

2228

2329
implicit none
@@ -1090,7 +1096,7 @@ subroutine string_to_toml(string, table)
10901096
integer :: iunit
10911097

10921098
! Write
1093-
open(newunit=iunit,form='formatted',status='scratch',action='readwrite')
1099+
open(newunit=iunit,form='formatted',status='scratch',action='readwrite',recl=4096)
10941100

10951101
!> Dump to scratch file
10961102
write(iunit,*) string

0 commit comments

Comments
 (0)