com.c (ffecom_constantunion_with_type): New function.
commit6dd0f30b36df25e1e9b01f1253e08ae2d341b080
authorBud Davis <bdavis9659@comcast.net>
Sat, 22 Mar 2003 13:01:08 +0000 (22 13:01 +0000)
committerToon Moene <toon@gcc.gnu.org>
Sat, 22 Mar 2003 13:01:08 +0000 (22 13:01 +0000)
tree8a407bae36a52fb2123c2e1a020e6fee6d41df06
parentdcde977582f92d6e8e6b0df8862504be064dd3ec
com.c (ffecom_constantunion_with_type): New function.

2003-03-22  Bud Davis  <bdavis9659@comcast.net>

* com.c (ffecom_constantunion_with_type): New function.
* com.h (ffecom_constantunion_with_type): Declare.
* stc.c (ffestc_R810): Check for kind type.
* ste.c (ffeste_R810): Use ffecom_constantunion_with_type
to discern SELECT CASE variables.

From-SVN: r64709
gcc/f/ChangeLog
gcc/f/com.c
gcc/f/com.h
gcc/f/stc.c
gcc/f/ste.c
gcc/testsuite/ChangeLog
gcc/testsuite/g77.f-torture/execute/select.f [new file with mode: 0644]
gcc/testsuite/g77.f-torture/noncompile/select_no_compile.f [new file with mode: 0644]