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