Skip to content

Commit ec8d47c

Browse files
committed
progress
1 parent b003080 commit ec8d47c

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

test/example/array/CMakeLists.txt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,2 @@
1-
#ADD_DEMO(falseloc)
1+
ADD_DEMO(falseloc)
22
ADD_DEMO(trueloc)

test/example/strings/demo_padl.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,12 +2,12 @@ program demo_padl
22
use stdlib_string_type, only: string_type, assignment(=)
33
use stdlib_strings, only: padl
44
implicit none
5-
string_type :: string
5+
type(string_type) :: string
66

77
string = "left pad this string"
88
! string <-- "left pad this string"
99

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

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

0 commit comments

Comments
 (0)