@@ -19,8 +19,8 @@ module stdlib_string_type
19
19
public :: len, len_trim, trim, index, scan, verify, repeat, adjustr, adjustl
20
20
public :: lgt, lge, llt, lle, char, ichar, iachar
21
21
public :: assignment (= )
22
- public :: operator (.gt. ), operator (.ge. ), operator (.lt. ), operator (.le. )
23
- public :: operator (.eq. ), operator (.ne. ), operator (// )
22
+ public :: operator (> ), operator (> = ), operator (< ), operator (< = )
23
+ public :: operator (== ), operator (/= ), operator (// )
24
24
public :: write (formatted), write (unformatted)
25
25
public :: read (formatted), read (unformatted)
26
26
@@ -209,66 +209,66 @@ module stdlib_string_type
209
209
! > a string.
210
210
! >
211
211
! > This operator is elemental and returns a default logical scalar value.
212
- interface operator (.gt. )
212
+ interface operator (> )
213
213
module procedure :: gt_string_string
214
214
module procedure :: gt_string_char
215
215
module procedure :: gt_char_string
216
- end interface operator (.gt. )
216
+ end interface operator (> )
217
217
218
218
! > Compare two character sequences for being less, the left-hand side,
219
219
! > the right-hand side or both character sequences can be represented by
220
220
! > a string.
221
221
! >
222
222
! > This operator is elemental and returns a default logical scalar value.
223
- interface operator (.lt. )
223
+ interface operator (< )
224
224
module procedure :: lt_string_string
225
225
module procedure :: lt_string_char
226
226
module procedure :: lt_char_string
227
- end interface operator (.lt. )
227
+ end interface operator (< )
228
228
229
229
! > Compare two character sequences for being greater than, the left-hand side,
230
230
! > the right-hand side or both character sequences can be represented by
231
231
! > a string.
232
232
! >
233
233
! > This operator is elemental and returns a default logical scalar value.
234
- interface operator (.ge. )
234
+ interface operator (> = )
235
235
module procedure :: ge_string_string
236
236
module procedure :: ge_string_char
237
237
module procedure :: ge_char_string
238
- end interface operator (.ge. )
238
+ end interface operator (> = )
239
239
240
240
! > Compare two character sequences for being less than, the left-hand side,
241
241
! > the right-hand side or both character sequences can be represented by
242
242
! > a string.
243
243
! >
244
244
! > This operator is elemental and returns a default logical scalar value.
245
- interface operator (.le. )
245
+ interface operator (< = )
246
246
module procedure :: le_string_string
247
247
module procedure :: le_string_char
248
248
module procedure :: le_char_string
249
- end interface operator (.le. )
249
+ end interface operator (< = )
250
250
251
251
! > Compare two character sequences for equality, the left-hand side,
252
252
! > the right-hand side or both character sequences can be represented by
253
253
! > a string.
254
254
! >
255
255
! > This operator is elemental and returns a default logical scalar value.
256
- interface operator (.eq. )
256
+ interface operator (== )
257
257
module procedure :: eq_string_string
258
258
module procedure :: eq_string_char
259
259
module procedure :: eq_char_string
260
- end interface operator (.eq. )
260
+ end interface operator (== )
261
261
262
262
! > Compare two character sequences for inequality, the left-hand side,
263
263
! > the right-hand side or both character sequences can be represented by
264
264
! > a string.
265
265
! >
266
266
! > This operator is elemental and returns a default logical scalar value.
267
- interface operator (.ne. )
267
+ interface operator (/= )
268
268
module procedure :: ne_string_string
269
269
module procedure :: ne_string_char
270
270
module procedure :: ne_char_string
271
- end interface operator (.ne. )
271
+ end interface operator (/= )
272
272
273
273
! > Concatenate two character sequences, the left-hand side, the right-hand side
274
274
! > or both character sequences can be represented by a string.
0 commit comments