On 31 May 2017 at 21:03, Nicolas Koenig <koeni...@student.ethz.ch> wrote: > Hello Dominique, > > attached is the next try, this time without stupidities (I hope). Both test > cases you posted don't ICE anymore. > > Ok for trunk?
Please check contrib/check_GNU_style.sh /tmp/p8.diff and let me point you to contrib/vimrc Furthermore: +/* Recursivly traverse the block of a WRITE or READ statement, and, can it be + optimized, do so. It optimizes it by replacing do loops with their analog + array slices. For example: s/Recursivly/Recursively Maybe: Recursively traverse the block of a WRITE or READ statement and maybe optimize it by ... + if (curr->expr1->shape) + { + new_e->shape = gfc_get_shape(new_e->rank); + } + + No curly braces around single stmt if-bodies. Excess vertical space. + if (!(*code)->block || ((*code)->block->op != EXEC_WRITE + && (*code)->block->op != EXEC_READ)) break line on || if (!(*code)->block || ((*code)->block->op != EXEC_WRITE && (*code)->block->op != EXEC_READ)) thanks,