[thirdparty/gcc.git] / gcc / testsuite / gcc.target / frv / frv.exp

# The name of each test starts with the architecture it requires.  Tests that
# work on all variants start with "all".

if {![istarget frv-*-*]} {
    return 0
}

load_lib gcc-dg.exp

# Find out which architecture is used by default.
set mainarch "fr500"
foreach flag [target_info multilib_flags] {
    regexp "^-mcpu=(.*)" $flag dummy mainarch
    if {$flag == "-mno-pack"} {
	# -mno-pack disables media intrinsics.
	return 0
    }
}

# Set $archs to "all" plus the list of architectures we can test.
set archs [list "all" $mainarch]
switch $mainarch {
    fr405 { lappend archs fr400 }
    fr450 { lappend archs fr405 fr400 }
}

# Set $files to the list of files we can test.
set files ""
foreach arch $archs {
    lappend files [lsort [glob -nocomplain $srcdir/$subdir/${arch}*.c]]
}

dg-init
gcc-dg-runtest [eval concat $files] ""
dg-finish
Commit	Line	Data
2495e879 RS	1	# The name of each test starts with the architecture it requires. Tests that
	2	# work on all variants start with "all".
	3
	4	if {![istarget frv--]} {
	5	return 0
	6	}
	7
	8	load_lib gcc-dg.exp
	9
	10	# Find out which architecture is used by default.
	11	set mainarch "fr500"
	12	foreach flag [target_info multilib_flags] {
	13	regexp "^-mcpu=(.*)" $flag dummy mainarch
	14	if {$flag == "-mno-pack"} {
	15	# -mno-pack disables media intrinsics.
	16	return 0
	17	}
	18	}
	19
	20	# Set $archs to "all" plus the list of architectures we can test.
	21	set archs [list "all" $mainarch]
	22	switch $mainarch {
	23	fr405 { lappend archs fr400 }
	24	fr450 { lappend archs fr405 fr400 }
	25	}
	26
	27	# Set $files to the list of files we can test.
	28	set files ""
	29	foreach arch $archs {
	30	lappend files [lsort [glob -nocomplain $srcdir/$subdir/${arch}*.c]]
	31	}
	32
	33	dg-init
	34	gcc-dg-runtest [eval concat $files] ""
	35	dg-finish