diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-24 13:51:39 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-24 13:51:39 +0000 |
| commit | 0c4934391b1b92f67eeb4ed72e712423cf084e53 (patch) | |
| tree | 0b35e9cf19e3ed9313832e9e741598c68a75a98f /gcc/testsuite/gfortran.dg | |
| parent | 4eb3fe22b85452830264a4c3d761121b5a6424f3 (diff) | |
| download | gcc-0c4934391b1b92f67eeb4ed72e712423cf084e53.tar.gz | |
fortran/
PR fortran/20059
* trans-common.c (translate_common): Cast offset and
common_segment->offset to type int for warning message.
testsuite/
PR fortran/20059
* gfortran.dg/common_5.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98660 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/common_5.f | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/common_5.f b/gcc/testsuite/gfortran.dg/common_5.f new file mode 100644 index 00000000000..d4b9614d6fb --- /dev/null +++ b/gcc/testsuite/gfortran.dg/common_5.f @@ -0,0 +1,10 @@ +C { dg-do compile } +C PR 20059 +C Check that the warning for padding works correctly. + SUBROUTINE PLOTZ + IMPLICIT DOUBLE PRECISION (A-H,O-Z) + COMMON /CCPOOL/ RMIN,RMAX,ZMIN,ZMAX,IMIN,JMIN,IMAX,JMAX,NFLOP, ! { dg-warning "Padding" } + $ HTP +C + RETURN + END |