OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/23428 (inquire(iolength= ) for complex give incorrect value)

Browse Source 
2005-08-16  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/23428
	* gfortran.dg/inquire-complex.f90:  Correct mangled testcase.

From-SVN: r103173
This commit is contained in:
Thomas Koenig 2005-08-16 21:30:32 +00:00
parent 950ad21d34
commit 8e1c3891ce
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/testsuite/gfortran.dg/inquire-complex.f90
View File

@ -7,7 +7,8 @@ program main
complex(kind=8) c8
complex(kind=4) c4
inquire (iolength=s) c8
inquire (iolength=s4) c4
inquire (iolength=s8) c8
if (s4 /= 8 .or. s8 /= 16) call abort
end program main