Skip to content

Commit 31d02cb

Browse files
committed
fix issues with examples in strings
1 parent e208c2b commit 31d02cb

File tree

3 files changed

+3
-3
lines changed

3 files changed

+3
-3
lines changed

test/example/strings/example_padl.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ program example_padl
77
string = "left pad this string"
88
! string <-- "left pad this string"
99

10-
print '(a)', padl(string, 25, "$") ! "$$$$$left pad this string"
10+
print '(dt)', padl(string, 25, "$") ! "$$$$$left pad this string"
1111

1212
string = padl(string, 25)
1313
! string <-- " left pad this string"

test/example/strings/example_padr.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ program example_padr
77
string = "right pad this string"
88
! string <-- "right pad this string"
99

10-
print '(a)', padr(string, 25, "$") ! "right pad this string$$$$"
10+
print '(dt)', padr(string, 25, "$") ! "right pad this string$$$$"
1111

1212
string = padr(string, 25)
1313
! string <-- "right pad this string "

test/example/strings/example_replace_all.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ program example_replace_all
77
string = "hurdles here, hurdles there, hurdles everywhere"
88
! string <-- "hurdles here, hurdles there, hurdles everywhere"
99

10-
print'(a)', replace_all(string, "hurdles", "learn from")
10+
print'(dt)', replace_all(string, "hurdles", "learn from")
1111
! "learn from here, learn from there, learn from everywhere"
1212

1313
string = replace_all(string, "hurdles", "technology")

0 commit comments

Comments
 (0)