14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Wno-portability -Werror2subroutine assumedshape(normal, contig)3 real normal(:)4 real, contiguous :: contig(:)5 !WARNING: If the procedure's interface were explicit, this reference would be in error [-Wknown-bad-implicit-interface]6 !BECAUSE: Element of assumed-shape array may not be associated with a dummy argument 'assumedsize=' array7 call seqAssociate(normal(1))8 !PORTABILITY: Element of contiguous assumed-shape array is accepted for storage sequence association [-Wcontiguous-ok-for-seq-association]9 call seqAssociate(contig(1))10end11subroutine seqAssociate(assumedSize)12 real assumedSize(*)13end14