procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Commit for Asher Langton <langton2@llnl.gov>

Browse source 
gcc/
	* decl.c (match_type_spec): Add a BYTE type as an extension.

testsuite/
	* gfortran.dg/byte_1.f90: New test.
	* gfortran.dg/byte_2.f90: New test.

From-SVN: r105823
This commit is contained in:
Asher Langton 2005-10-23 20:42:27 +00:00 • committed by Steven Bosscher
parent 17d6e514a1
commit 5f700e6de0
5 changed files with 74 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2005-10-23 Asher Langton <langton2@llnl.gov>
* decl.c (match_type_spec): Add a BYTE type as an extension.
2005-10-23 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18022

18
gcc/fortran/decl.c
View file

@ -1386,6 +1386,24 @@ match_type_spec (gfc_typespec * ts, int implicit_flag)
gfc_clear_ts (ts);
if (gfc_match (" byte") == MATCH_YES)
{
if (gfc_notify_std(GFC_STD_GNU, "Extension: BYTE type at %C")
== FAILURE)
return MATCH_ERROR;
if (gfc_validate_kind (BT_INTEGER, 1, true) < 0)
{
gfc_error ("BYTE type used at %C "
"is not available on the target machine");
return MATCH_ERROR;
}
ts->type = BT_INTEGER;
ts->kind = 1;
return MATCH_YES;
}
if (gfc_match (" integer") == MATCH_YES)
{
ts->type = BT_INTEGER;

11
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2005-10-23 Asher Langton <langton2@llnl.gov>
* gfortran.dg/byte_1.f90: New test.
* gfortran.dg/byte_2.f90: New test.
2005-10-23 David Edelsohn <edelsohn@gnu.org>
* gcc.dg/attr-alias-3.c: XFAIL on AIX.
@ -5,13 +10,13 @@
2005-10-23 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18022
gfortran.dg/assign_func_dtcomp_1.f90: New test.
* gfortran.dg/assign_func_dtcomp_1.f90: New test.
PR fortran/24311
gfortran.dg/merge_char_const.f90: New test.
* gfortran.dg/merge_char_const.f90: New test.
PR fortran/24384
gfortran.dg/spread_scalar_source.f90: New test.
* gfortran.dg/spread_scalar_source.f90: New test.
2005-10-22 Hans-Peter Nilsson <hp@axis.com>

22
gcc/testsuite/gfortran.dg/byte_1.f90 Normal file
View file

@ -0,0 +1,22 @@
! { dg-do compile }
! { dg-options "-std=f95" }
program testbyte
integer(1) :: ii = 7
call foo(ii)
end program testbyte
subroutine foo(ii)
integer(1) ii
byte b ! { dg-error "BYTE type" }
b = ii
call bar(ii,b)
end subroutine foo
subroutine bar(ii,b)
integer (1) ii
byte b ! { dg-error "BYTE type" }
if (b.ne.ii) then
! print *,"Failed"
call abort
end if
end subroutine bar

22
gcc/testsuite/gfortran.dg/byte_2.f90 Normal file
View file

@ -0,0 +1,22 @@
! { dg-do run }
! { dg-options "-std=gnu" }
program testbyte
integer(1) :: ii = 7
call foo(ii)
end program testbyte
subroutine foo(ii)
integer(1) ii
byte b
b = ii
call bar(ii,b)
end subroutine foo
subroutine bar(ii,b)
integer (1) ii
byte b
if (b.ne.ii) then
! print *,"Failed"
call abort
end if
end subroutine bar