We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f6829c8 commit 81339e7Copy full SHA for 81339e7
example/system/example_make_directory.f90
@@ -1,6 +1,6 @@
1
-! Illustrate the usage of `make_directory`
+! Illustrate the usage of `make_directory`, `make_directory_all`
2
program example_make_directory
3
- use stdlib_system, only: make_directory
+ use stdlib_system, only: make_directory, make_directory_all
4
use stdlib_error, only: state_type
5
implicit none
6
@@ -14,4 +14,12 @@ program example_make_directory
14
print *, "directory created sucessfully"
15
end if
16
17
+ call make_directory_all("d1/d2/d3/d4", err)
18
+
19
+ if (err%error()) then
20
+ print *, err%print()
21
+ else
22
+ print *, "nested directories created sucessfully"
23
+ end if
24
25
end program example_make_directory
0 commit comments