1! Test implicit character declarations.
2! This requires some coordination between the typespec and variable name range
3! matchers to get it right.
4module implicit_1
5  integer, parameter :: x = 10
6  integer, parameter :: y = 6
7  integer, parameter :: z = selected_int_kind(4)
8end module
9subroutine foo(n)
10  use implicit_1
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)
20
21  a1 = 'Hello'
22  b1 = 'world'
23  c1 = 'wibble'
24  d1 = 'hmmm'
25  e1 = 'n'
26  f1 = 'test'
27  g1 = 1
28  x1 = 1.0
29  y1 = 2.0
30  z1 = 'A'
31end
32
33