1 ! Test implicit character declarations.
2 ! This requires some coordination between the typespec and variable name range
3 ! matchers to get it right.
5 integer, parameter :: x = 10
6 integer, parameter :: y = 6
7 integer, parameter :: z = selected_int_kind(4)
11 ! Test various combinations with and without character length
12 ! and type kind specifiers
13 implicit character(len=5) (a)
14 implicit character(n) (b)
15 implicit character*6 (c-d)
16 implicit character (e)
17 implicit character(x-y) (f)
18 implicit integer(z) (g)
19 implicit character (z)