blob: 0372f6e9632632c691235bae3b7932cc0b1142a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do run }
! PR fortran/70409
! Contriubted by Harald Anlauf <anlauf at gmx dot de>
program foo
integer, parameter :: huge_1 = huge(0_1)
character( huge_1 ), parameter :: x = 'abc'
character( huge(0_1) ), parameter :: y = 'abc'
character( huge(0_1)+0 ), parameter :: z = 'abcdef'
character( huge(0_1) ) :: a = 'abc'
integer, parameter :: huge_2 = huge(0_2)
character( huge_2 ), parameter :: u = 'abc'
character( huge(0_2) ), parameter :: v = 'abc'
character(int(huge(0_2),4)), parameter :: w = 'abcdef'
character( huge(0_2) ) :: b = 'abc'
if (len(x) /= huge_1) stop 1
if (len(y) /= huge_1) stop 2
if (len(z) /= huge_1) stop 3
if (len(a) /= huge_1) stop 4
if (len(u) /= huge_2) stop 5
if (len(v) /= huge_2) stop 6
if (len(w) /= huge_2) stop 7
if (len(b) /= huge_2) stop 8
end program foo
|
