@@ -87,6 +87,16 @@ module ftlStringModule
87
87
procedure :: EndString
88
88
generic , public :: End = > EndString
89
89
90
+ ! Derived-type IO:
91
+ procedure :: writeFormatted
92
+ generic, public :: write (formatted) = > writeFormatted
93
+ procedure :: writeUnformatted
94
+ generic, public :: write (unformatted) = > writeUnformatted
95
+ procedure :: readFormatted
96
+ generic, public :: read (formatted) = > readFormatted
97
+ procedure :: readUnformatted
98
+ generic, public :: read (unformatted) = > readUnformatted
99
+
90
100
! Conversion to numeric types:
91
101
procedure , public :: IsNumber
92
102
procedure , public :: IsInt
@@ -241,29 +251,6 @@ module ftlStringModule
241
251
end interface
242
252
243
253
244
- ! Derived-type IO
245
-
246
- public :: write (formatted)
247
- interface write (formatted)
248
- module procedure writeFormatted
249
- end interface
250
-
251
- public :: write (unformatted)
252
- interface write (unformatted)
253
- module procedure writeUnformatted
254
- end interface
255
-
256
- public :: read (formatted)
257
- interface read (formatted)
258
- module procedure readFormatted
259
- end interface
260
-
261
- public :: read (unformatted)
262
- interface read (unformatted)
263
- module procedure readUnformatted
264
- end interface
265
-
266
-
267
254
! Free versions of some type-bound procedures:
268
255
269
256
public :: Begin
0 commit comments