No -fschedule-insns is not included for x86 because of register pressure.
See PR 27001 also.  There are many others due to the RA being dumb.

Confirmed, goes back at least to 4.2 (so not a regression).

Is this failure still triggered with recent mainline after http://gcc.gnu.org/ml/gcc-cvs/2009-09/msg00094.html ?

Can someone please fix fortran in the testcase, so it will compile with gcc 4.8?

> Can someone please fix fortran in the testcase, so it will compile with gcc
> 4.8?

The mailer has split a line in two:

  USE class_dummy_atom_kdtree_types, ONLY: dummy_atom_kdtree,
dummy_atom_kdtree_node, dummy_atom_kdtree_data

You can unsplit them, or replace them with (adding a & at the end of the first line)

  USE class_dummy_atom_kdtree_types, ONLY: dummy_atom_kdtree, &
  dummy_atom_kdtree_node, dummy_atom_kdtree_data

I get the ICE with 4.4.6, but the code compiles with 4.5.3, 4.6.3, 4.7.1, and trunk and '-O1 -fschedule-insns'.

(In reply to comment #5)

> I get the ICE with 4.4.6, but the code compiles with 4.5.3, 4.6.3, 4.7.1, and
> trunk and '-O1 -fschedule-insns'.

I propose we put the testcase in the testsuite (with -O1 -fschedule-insns for x86) and close the bug.

Dominique, can you perhaps prepare the test in a correct way for the testsuite?

> Dominique, can you perhaps prepare the test in a correct way for the testsuite?

I have tested a slightly reduced version

! { dg-do compile }
! { dg-options "-O1 -fschedule-insns" }
MODULE class_dummy_atom_kdtree_types
  TYPE dummy_atom_kdtree_data
    INTEGER :: dummy
  END TYPE

  TYPE :: dummy_atom_kdtree_node
    TYPE(dummy_atom_kdtree_node_private), POINTER :: p
  END TYPE

  TYPE :: dummy_atom_kdtree_node_private
    TYPE(dummy_atom_kdtree_data)                  :: data
  END TYPE

  TYPE :: dummy_atom_kdtree
    TYPE(dummy_atom_kdtree_node) :: root
  END TYPE
END MODULE

FUNCTION dummy_atom_kdtree_insert(this, item)
  USE class_dummy_atom_kdtree_types

  TYPE(dummy_atom_kdtree), INTENT(inout)   :: this
  TYPE(dummy_atom_kdtree_data), INTENT(in) :: item

  TYPE(dummy_atom_kdtree_node) :: parent, current
  INTEGER :: cmp, level, discriminator

  parent        = dummy_atom_kdtree_node(null())
  current       = this%root
  level         = 1
  discriminator = 1

  DO WHILE (ASSOCIATED( current%p ))
    discriminator = MODULO(level-1, 3) + 1
    cmp = dummy_atom_kdtree_data_compare(item, current%p%data, discriminator)
    level   = level + 1
  END DO

END FUNCTION

What is the magic to avoid the -O in "-O  -O1 -fschedule-insns"?

For the record the original test and the reduced one compiles on powerpc-apple-darwin9 also with 4.3.0 and 4.4.6.

(In reply to comment #7)

> What is the magic to avoid the -O in "-O  -O1 -fschedule-insns"?

You can't.  This is how currently gfortran testsuite works.

The part that should eventually be fixed is in lib/gfortran.exp:

	# look if this is dg-do-run test, in which case
	# we cycle through the option list, otherwise we don't
	if [expr [search_for $test "dg-do run"]] {
	    set option_list $torture_with_loops
	} else {
	    set option_list [list { -O } ]
	}

Author: uros
Date: Sun Sep  2 08:10:21 2012
New Revision: 190855

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=190855
Log:
	PR target/36680
	* gfortran.dg/pr36680.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/pr36680.f90
Modified:
    trunk/gcc/testsuite/ChangeLog

Closed as fixed in 4.8.0.