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 6335dc0 commit 89df63aCopy full SHA for 89df63a
example/strings/example_to_c_char.f90
@@ -13,9 +13,7 @@ program example_to_c_char
13
! Convert string type
14
cstr2 = to_c_char(string_type(hello))
15
16
- if (size(cstr)==size(cstr2) .and. all(cstr==cstr2)) then
17
- stop 0
18
- else
+ if (size(cstr)/=size(cstr2) .or. .not.all(cstr==cstr2)) then
19
error stop 'String conversion error'
20
end if
21
0 commit comments