Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/hollerith2.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! Program to test Hollerith constant.
3 Program test
4 implicit none
5 integer i,j
6 real r, x, y
7 parameter (i = 4h1234)
8 parameter (r = 4hdead)
9 parameter (y = 4*r)
10 parameter (j = selected_real_kind (i))
11 x = 4H1234
12 x = sin(r)
13 x = x * r
14 x = x / r
15 x = x + r
16 x = x - r
17 end
18 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 7 }
19 ! { dg-warning "Conversion" "conversion" { target *-*-* } 7 }
20
21 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
22 ! { dg-warning "Conversion" "conversion" { target *-*-* } 8 }
23
24 ! { dg-warning "Hollerith constant" "const" { target *-*-* } 11 }
25 ! { dg-warning "Conversion" "conversion" { target *-*-* } 11 }
26