Skip to content

Commit bcf778b

Browse files
committed
made derived type i/o procedures of ftlString type-bound; seems to work around some rare issue with ifort19 (and possibly other versions too)
1 parent 6b1c5e6 commit bcf778b

File tree

1 file changed

+10
-23
lines changed

1 file changed

+10
-23
lines changed

src/ftlString.F90

Lines changed: 10 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -87,6 +87,16 @@ module ftlStringModule
8787
procedure :: EndString
8888
generic , public :: End => EndString
8989

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+
90100
! Conversion to numeric types:
91101
procedure, public :: IsNumber
92102
procedure, public :: IsInt
@@ -241,29 +251,6 @@ module ftlStringModule
241251
end interface
242252

243253

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-
267254
! Free versions of some type-bound procedures:
268255

269256
public :: Begin

0 commit comments

Comments
 (0)